Множество точек, Найти макс. растояние Опции

[Леха]

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

[trminator]

Код

const maxn = 100;
var i, j : integer;
   x, y : array[1..maxn] of double; // Координаты точек
   n : integer;
   max_ro : double;
   max_point1, max_point2  : integer; // номер точки

function ro(i, j : integer) : double;
{Тут работает теорема им. тов. Пифагора}
begin
   ro := sqr(x[i] - x[j]) + sqr(y[i] - y[j]);
   // На квадрат забиваем. (r1^2 > r2^2) <=> ((r1 > r2) & (r1>=0, r2>=0))
end;

begin
   Write('Введи количество точек > '); readLn(n);
   for i := 1 to n do
   begin
       write('Координаты ', i, '-й точки > '); readLn(x[i], y[i]);
   end;
   max_ro := 0;

{Проверяем все точки. Перебор}
   for i := 1 to n do
       for j := i to n do // от i, так как если проверили расстояние 1-2, то 2-1 уже не надо =)
       if ro(i, j) > max_ro then
       begin
           max_ro := ro(i, j);
           max_point1 := i; max_point2 := j;
       end;
   writeLn('Точки с координатами (', x[max_point1]:0:3, y[max_point1]:0:3,
           ') и (',x[max_point2]:0:3, y[max_point2]:0:3,')');
end.