Составить программу, которая находит наибольшую среднюю линию треугольника

{ наибольшая средняя линия треугольника }
type
  TPoint = record
    x, y: Real;
  end;
 
function Dist(const a, b: TPoint): Real;
begin
  Dist:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
end;
 
procedure Middle(const a, b: TPoint; var m: TPoint);
begin
  m.x:=(a.x+b.x)/2;
  m.y:=(a.y+b.y)/2;
end;
 
var
  t, m: array [1..3] of TPoint;
  d, max: Real;
  i: Integer;
begin
  for i:=1 to 3 do with t[i] do begin
    Write('Введите координаты вершины ',Chr(Ord('A')+i-1),': ');
    ReadLn(x,y);
  end;
  Middle(t[1],t[3],m[3]);
  for i:=1 to 2 do Middle(t[i],t[i+1],m[i]);
  max:=Dist(m[1],m[3]);
  for i:=1 to 2 do begin
    d:=Dist(m[i],m[i+1]);
    if max<d then max:=d;
  end;
  WriteLn('Максимальная средняя линия: ', max);
end.

{ наибольшая средняя линия треугольника }
uses math;
type
  TPoint = record
    x, y: Real;
  end;
  TTriangle = record
    case Integer of
    0: (p: array [1..3] of TPoint);
    1: (a, b, c: TPoint);
  end;
 
function Dist(x1, y1, x2, y2: Real): Real;
begin
  Dist:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
 
var
  t: TTriangle;
  i: Integer;
begin
  for i:=1 to 3 do with t.p[i] do begin
    Write('Введите координаты вершины ',Chr(Ord('A')+i-1),': ');
    ReadLn(x,y);
  end;
  with t do WriteLn('Максимальная средняя линия: ', Max(
    Dist((a.x+b.x)/2,(a.y+b.y)/2,(a.x+c.x)/2,(a.y+c.y)/2),
    Max(
      Dist((a.x+b.x)/2,(a.y+b.y)/2,(b.x+c.x)/2,(b.y+c.y)/2),
      Dist((a.x+c.x)/2,(a.y+c.y)/2,(b.x+c.x)/2,(b.y+c.y)/2))));
end.

{ наибольшая средняя линия треугольника }
uses math;
type
  TPoint = record
    x, y: Real;
  end;
 
function Dist(x1, y1, x2, y2: Real): Real;
begin
  Dist:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
 
var
  a, b, c: TPoint;
begin
  Write('Введите координаты вершин треугольника: ');
  ReadLn(a.x,a.y,b.x,b.y,c.x,c.y);
  WriteLn('Максимальная средняя линия: ', Max(
    Dist((a.x+b.x)/2,(a.y+b.y)/2,(a.x+c.x)/2,(a.y+c.y)/2),
    Max(
      Dist((a.x+b.x)/2,(a.y+b.y)/2,(b.x+c.x)/2,(b.y+c.y)/2),
      Dist((a.x+c.x)/2,(a.y+c.y)/2,(b.x+c.x)/2,(b.y+c.y)/2))));
end.

function Dist(x1, y1, x2, y2: Real): Real;
begin
  Dist:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
 
var
  ax, ay, bx, by, cx, cy: Real;
begin
  Write('Введите координаты вершин треугольника: ');
  ReadLn(ax,ay,bx,by,cx,cy);
  WriteLn('Максимальная средняя линия: ', Max(
    Dist((ax+bx)/2,(ay+by)/2,(ax+cx)/2,(ay+cy)/2),
    Max(
      Dist((ax+bx)/2,(ay+by)/2,(bx+cx)/2,(by+cy)/2),
      Dist((ax+cx)/2,(ay+cy)/2,(bx+cx)/2,(by+cy)/2))));
end.

uses Math;
 
function Dist(x1, y1, x2, y2: Real): Real;
begin
  Dist:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
 
var
  ax, ay, bx, by, cx, cy: Real;
begin
  Write('Введите координаты вершин треугольника: ');
  ReadLn(ax,ay,bx,by,cx,cy);
  WriteLn('Максимальная средняя линия: ', 
    Max(Dist(ax,ay,cx,cy)/2,Max(Dist(ax,ay,bx,by)/2,Dist(bx,by,cx,cy)/2)));
end.