Найти номера пары точек, расстояние между которыми наибольшее

[evgenext]

Даны координаты n точек на плоскости: (Xi, Yi), ..., (Хn, Yn) (n=30). Найти номера пары точек, расстояние между которыми наибольшее (считать, что такая пара единственная).

[L_M]

Наверное спрашивать где наработки смысла нет? Хотя, думаю, подобные задачи решались уже тут. В общем в вот код:

type
     TPoint=record
         x,y:real;
     end;
var
     Points:array[1..30] of TPoint;
max:=0;
for i:=1 to n-1 do
    for j:=i+1 to n do begin
        s:=sqrt(sqr(points[i].x-points[j].x)+sqr(points[i].y-points[j].y));
        if s>max then begin
            max:=s;
            maxi:=i;
            maxj:=j;
        end;
    end;

Собственно переменные maxi,maxj хранят номера точек, а переменная max расстояние между ними.