Визуальная среда Delphi. Построение треугольника/описание окружности; работа с массивом.

procedure TForm1.FormPaint(Sender: TObject);
var Ax, Ay, Bx, By, Cx, Cy : integer;
    P1x, P1y, Dx, Dy, A1, B1, C1, P2x, P2y, A2, B2, C2, R: double;
begin
   Ax := 120; Ay := 120;
   Bx := 400; By := 120;
   Cx := 150; Cy := 300;
 
   // Середина отрезка AB
   P1x := (Ax + Bx) / 2;
   P1y := (Ay + By) / 2;
   // Прямая, перпендикулярная AB через точку P1
   // x(Ax-Bx) +y(Ay-By) + C = 0
   A1 := Ax-Bx;
   B1 := Ay-By;
   C1 := -(P1x*A1 + P1y*B1);
 
   // То-же самое для BC
   P2x := (Bx + Cx) / 2;
   P2y := (By + Cy) / 2;
   A2 := Bx-Cx;
   B2 := By-Cy;
   C2 := -(P2x*A2 + P2y*B2);
 
   // Точка пересечения прямых
   if A1 <> 0 then begin
      Dy := ((A2 * C1)/A1 - C2) * A1 / (B2 * A1 - B1 * A2);
      Dx := (-C1 - B1 * Dy ) / A1;
   end else begin
      Dx := ((B2 * C1)/B1 - C2) * B1 / (A2 * B1 - A1 * B2);
      Dy := (-C1 - A1 * Dx ) / B1;
   end;
 
   R := sqrt(sqr(Ax-Dx)+sqr(Ay-Dy));
 
   canvas.Ellipse(trunc(Dx-R), trunc(Dy-R), trunc(Dx+R), trunc(Dy+R));
 
   canvas.PolyLine([Point(Ax, Ay), Point(Bx, By), Point(Cx, Cy), Point(Ax, Ay)]);
end;