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

 var
  a:array[1..100] of record x,y:real end;
  i,j,k1,k2:integer;
 r,rmax:real;
begin
 {ввод n точек}
 for i:=1 to n-1 do 
 begin
  for j:=i to n do 
  begin
   r:=sqrt(sqr(a[i].x-a[j].x)+sqrt(a[i].y-a[j].y))
   if r>rmax then begin rmax:=r; k1:=i;k2:=j end;
  end
 end
end

В результате номера k1,k2 - номера точек с макс. расстоянием между ними.