Обработка записей.Паскаль

[Morzik8]

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

Вопрос вот в чем, программа удовлетворяет поставленный вопрос в задаче? Просто писал с примера.И как если что нужно исправить!? И мало разобрался в данной теме.

Program Ex24;
const
   N=5;
type
   TPoint=record
       X,Y:real
   end;
   TPointsSet=array [1..5] of TPoint;
const
  PointsSet:TPointsSet=((X:0;Y:0),(X:0;Y:2),
       (X:1;Y:1), (X:4;Y:2), (X:2;Y:4));
function Dist(X1,Y1,X2,Y2:real):real;
begin
   Dist:=sqrt(sqr(X1-X2)+sqr(Y1-Y2));
end;
procedure MaxDist(var P:TPointsSet;
       var IMax, JMax:integer;var SMax:real);
var
   I,J:integer;
   D:real;
begin
   SMax:=Dist(P[1].X,P[1].Y,P[2].X,P[2].Y);
   IMax:=1;
   JMax:=2;
   for I:=1 to N-1 do
      for J:=I+1 to N do begin
         D:=Dist(P[I].X,P[I].Y,P[J].X,P[J].Y);
         if D>SMax then begin
            SMax:=D;
            IMax:=I;
            JMax:=J;
         end
      end
end;
var
   IMax,JMax:integer;
   SMax:real;
begin
   MaxDist(PointsSet,IMax, JMax,SMax);
   writeln('Rastoyanie',SMax:7:2);
   readln
end.

[Grag]

Удовлетворяет...