Объектно-ориентированное программирование

uses crt;
var
   a:array [1..1000] of integer;
   i,j,k,l,n,mi,mj,mk,ml:integer;
   d1,d2,d3,d4,p,mp:real;
{по х}
function
   x(i:integer):real;
begin
   x:=a[2*i-1];
end;
{по y}
function
   y(i:integer):real;
begin
   y:=a[2*i]
end;
{длина отрезка(используем 2 выше описанные функции)}
function
   dl(i,j:integer):real;
begin
   dl:=sqrt(sqr(x(i)-x(j))+sqr(y(i)-y(j)))
end;
{begin}
begin
   writeln('Количество точек: ');
   readln(n);
   for i:=1 to n do
   begin
      write('x[',i,']=');
      readln(a[2*i-1]);
      write('y[',i,']=');
      readln(a[2*i]);
   end;
   for i:=1 to n-3 do
      for j:=i+1 to n-2 do
         for l:=j+1 to n-1 do
            for k:=l+1 to n do
            begin
               d1:=dl(j,i);;
               d2:=dl(l,j);
               d3:=dl(k,l);
               d4:=dl(k,i);
               if (d1=d2) and (d2=d3) and (d3=d4) and (d4=d1) then
                  if (d1<>0) then
                  begin
              p:=d1+d2+d3+d4;
              if p>mp then
                     begin
                        mi:=i;
                        mj:=j;
                 mk:=k;
                        ml:=l;
          mp:=p;
              end;
                  end;
            end;
   if p<>0 then
   begin
      writeln('Квадрат с максимальным периметром: ');
      writeln('Точки :',mi,':',mj,':',ml,':',mk);
      writeln('Периметр: ',mp:4:2);
   end
   else
      writeln('НЕТУ КВАДРАТА!');
   ReadLn;
 end.