Нужно с помощью массива вывести на печать длину наибольшей медианы треугольника, заданного координатами вершин.

uses crt;
type
   Pnt=record
      X,Y:real;
   end;
 
var i,n:integer;
    a:array[1..3]of Pnt;
    p1,p2:Pnt;
    m,max,x,y,dx,dy:real;
 
begin
   for i:=1 to 3 do
   begin
      write('Координаты вершины №',i,' X Y:');
      readln(a[i].X,a[i].Y);
   end;
 
   for i:=1 to 3 do
   begin
      case i of
      1:begin p1:=a[2]; p2:=a[3]; end;
      2:begin p1:=a[3]; p2:=a[1]; end;
      3:begin p1:=a[1]; p2:=a[2]; end;
      end;
      x:=(p1.X+p2.X)/2;
      y:=(p1.Y+p2.Y)/2;
      dx:=x-a[i].X;
      dy:=y-a[i].Y;
      m:=sqrt(dx*dx+dy*dy);
      if(i=1)or(m>max)then
      begin
         max:=m;
         n:=i;
      end;
   end;
   writeln('Медиана из вершины №',n,'=',max:0:2);
   readln;
end.