Массив координат: найти номера двух точек, расстояние между которыми наибольшее

const
  n=4;
 
var
  mas:array[1..2*n] of integer;
  i, j, max1,max2:integer;
  max:real;
 
begin
i:=1;
while i<=2*n-1 do begin
  write('x[',i div 2 +1 ,']=');readln(mas[i]);
  write('y[',i div 2 +1,']=');readln(mas[i+1]);
  inc(i,2);
end;
max:=-1;
i:=1;
while i<2*(n-1) do begin
  j:=i+2;
  while j<2*n do begin
     if sqrt(sqr(mas[j]-mas[i])+sqr(mas[j+1]-mas[i+1]))>max then begin
        max:=sqrt(sqr(mas[j]-mas[i])+sqr(mas[j+1]-mas[i+1]));
        max1:=i div 2+1; max2:=j div 2+1;
     end;
     inc(j,2);
  end;
  inc(i,2);
end;
writeln('Наибольшее расстояние между точками ', max1,' и ',max2);
readln;
end.

uses crt;
type point=record
           x,y:real;
           end;
function Rasst(a,b:point):real;
begin
Rasst:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
end;
var a:array[1..100] of point;
    max:real;
    n,i,j,imx,jmx:integer;
begin
clrscr;
randomize;
write('Количество точек (нормально до 13) = ');
readln(n);
for i:=1 to n do
 begin
  a[i].x:=10*random-4;
  a[i].y:=10*random-4;
 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;
max:=0;imx:=1;jmx:=1;
for i:=1 to n-1 do
for j:=i+1 to n do
if Rasst(a[i],a[j])>max then
 begin
  max:=Rasst(a[i],a[j]);
  imx:=i;
  jmx:=j;
 end;
write('Максимальное расстояние между точками ',imx,' и ',jmx,' =',max:0:1);
readln
end.