Одномерные массивы, записи.

function Rasst(x1,y1,x2,y2:real):real;
begin
   Rasst:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
 
var
   a:array[1..2,1..100] of real;
   mx:real;
   n,i,j,imx,jmx:integer;
begin
   randomize;
   write('Количество точек  = ');
   readln(n);
   for i:=1 to n do
   begin
     readln(a[1,i]);
     readln(a[2,i]);
   end;
   write('Нoмер точки ');
   for i:=1 to n do
      write(i:5);
   writeln;
   write('координата Х');
   for i:=1 to n do
      write(a[1,i]:5:1);
   writeln;
   write('координата Y');
   for i:=1 to n do
      write(a[2,i]:5:1);
   writeln;
   writeln;
   mx:=Rasst(a[1,1],a[2,1],a[1,2],a[2,2]);
   imx:=1;
   jmx:=2;
   for i:=1 to n-1 do
      for j:=i+1 to n do
         if Rasst(a[1,i],a[2,i],a[1,j],a[2,j])>mx then
         begin
            mx:=Rasst(a[1,i],a[2,i],a[1,j],a[2,j]);
            imx:=i;
            jmx:=j;
         end;
   write('Максимальное расстояние между точками ', i, ' - ', j, ' = ', mx:0:2);
   readln;
end.

type
   point=record
   x,y:real;
end;
 
 
function dl(x1,y1,x2,y2:real):real;
begin
   dl:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
 
 
var
   a:array[1..100] of point;
   mx:real;
   n,i,j,imx,jmx:integer;
begin
   write('Количество точек  = ');
   readln(n);
   for i:=1 to n do
   begin
     readln(a[i].x);
     readln(a[i].y);
   end;
   write('Нoмер точки ');
   for i:=1 to n do
      write(i:5);
   writeln;
   write('координата Х');
   for i:=1 to n do
      write(a[i].x:5:1);
   writeln;
   write('координата Y');
   for i:=1 to n do
      write(a[i].y:5:1);
   writeln;
   writeln;
   mx:=dl(a[1].x,a[1].y,a[2].x,a[2].y);
   imx:=1;
   jmx:=2;
   for i:=1 to n-1 do
      for j:=i+1 to n do
         if dl(a[i].x,a[i].y,a[j].x,a[j].y)>mx then
         begin
            mx:=dl(a[i].x,a[i].y,a[j].x,a[j].y);
            imx:=i;
            jmx:=j;
         end;
   write('Максимальное расстояние между точками ', imx, ' - ', jmx, ' = ', mx:0:2);
   readln;
end.