Найти среди точек пару наиболее удаленных друг от друга

uses crt;
var x,y:array[1..100]of real;
 
i,j,n,n1,n2:integer;
max, d : real;
 
begin
    clrscr;
    write('N -> ');
    readln(N);
    for i:=1 to N do
    begin
        write(i,'-я точка -> ');
        readln(x[i],y[i]);
    end;
    max := -1;
    n1 := 1;
    n2 := 2;
    for i := 1 to N do for j:=i+1 to N do
    begin
        d :=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]));
        if d > max then
        begin
            max := d;
            n1 := i;
            n2 := j;
        end;
    end;
    writeln('Точки ',n1,' и ',n2);
    readln;
end.

uses crt;
const nmax=29;
var x,y:array[1..nmax] of real;
    n,i,j,imx,jmx:byte;
    mx:real;
begin
clrscr;
randomize;
repeat
write('Количество точек от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
for i:=1 to n do
 begin
  x[i]:=10*random-4;
  y[i]:=10*random-4;
 end;
writeln('Координаты:');
write('X');
for i:=1 to n do
write(x[i]:5:1);
writeln;
write('Y');
for i:=1 to n do
write(y[i]:5:1);
writeln;
writeln;
mx:=sqrt(sqr(x[1]-x[2])+sqr(y[1]-y[2]));
imx:=1;
jmx:=2;
for i:=1 to n-1 do
for j:=i+1 to n do
if sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]))>mx then
 begin
  mx:=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]));
  imx:=i;
  jmx:=j;
 end;
writeln('Максимальное расстояние между точками ',imx,'-',jmx,' = ',mx:0:2);
readln
end.

max:=0;
for i:=1 to n do
for j:=1 to n do
r:=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]));
if r>max then begin
max:=r;
x1:=x[i];
y1:=y[i];
x2:=x[j];
y2:=y[j];
end;
writeln('1 tochka=',x1,' ',y1);
writeln('2 tochka=',x2,' ',y2);
readln;
end.