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

program prakt_8_1;
uses crt;
var n,i,k:byte;
     a,a1,b,b1:integer;
 {----------------------------------------------------------}
function r(x,y,x1,y1:integer):real;
    
   begin
     r:=sqrt((x1-x)*(x1-x)+(y1-y)*(y1-y));
   end;
 
 
{-------------Основная программа------------------}
 begin
 i:=0;
write('Введите количество точек N: '); readln(n);
   while i<n do
     begin
      inc(i);
      write('Введите координаты ',i,' точки: '); readln(a,b);
      inc(i);
        if i<=n then
          begin
           write('Введите координаты ',i,' точки: '); readln(a1,b1);
          end 
     end;
      write('Расстояние равно: ',r(a,b,a1,b1):3:4); 
      readln;
 end.

program prakt_8_1;
uses crt;
type point=record
           x,y:integer
           end;
function r(a,b:point):real;
begin
 r:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
end;
 
var a:array[1..100] of point;
    n,i,j,imx,jmx:byte;
    mx:real;
 
begin
write('Введите количество точек N: ');
read(n);
for i:=1 to n do
 begin
  writeln('Введите координаты ',i,' точки: ');
  read(a[i].x,a[i].y);
 end;
imx:=1;
jmx:=2;
mx:=r(a[1],a[2]);
for i:=1 to n-1 do
for j:=i+1 to n do
if r(a[i],a[j])>mx then
 begin
  mx:=r(a[i],a[j]);
  imx:=i;
  jmx:=j
 end;
write('Максимальное расстояние=',mx:0:2,' между точками ',i,' и ',j);
end.