Нахождение максимального растояния - PascalABC.NET

*9) Во множестве точек найти две
 с максимальны расстоянием между ними.*)
program z3;
 
uses
   graphABC;
 
const
   n = 4;
 
var
   imn, jmn, v, k, tk, j, i: integer;
   t: array[1..2, 1..n] of integer;
   max, d: real;
 
function Dl(x1, x2, y1, y2: integer): real;
begin
   Dl := Abs(Sqrt(sqr(x2 - x1) + sqr(y2 - y1)));
end;
 
begin
   
   writeln('vvedi ', n, ' koord.x');
   for i := 1 to n do 
   begin
      read(tk);
      t[1, i] := tk;
   end;
   writeln('vvedi ', n, ' koord.y');
   for k := 1 to n do 
   begin
      read(tk);
      t[2, k] := tk;
   end;
   
   writeln('danbI koordin.:');
   write('X');
   for j := 1 to n do 
      write(t[1, j]:4);
   writeln;
   write('Y');
   for j := 1 to n do 
      write(t[2, j]:4);
   writeln;
   d := Dl(t[1, i], t[2, i], t[1, j], t[2, j]);
   max := d;
   jmn := 1;
   Jmn := 2;
   v := 0;
   for i := 1 to n - 1 do
      for j := i + 1 to n do 
      begin
         d := Dl(t[1, i], t[2, i], t[1, j], t[2, j]);
         begin
            v := 1;
            if(Dl (t[1, i], t[2, i], t[1, j], t[2, j]) > max) then
            begin
               max := Dl(t[1, i], t[2, i], t[1, j], t[2, j]);
               imn := i;
               jmn := j;
            end;
         end;
      end; 
   for i := 1 to n do
   begin
      Circle(t[1, i], t[2, i], 3);
   end;
   line(t[1, imn], t[2, imn], t[1, jmn], t[2, jmn]);
   writeln(imn, '(', t[1, imn], ';', t[2, imn], ')');
   writeln(jmn, '(', t[1, jmn], ';', t[2, jmn], ')');
   writeln('max.dlina=', max:0:2);
   if v = 0 then write('zadai drugie koord.');
   readln; 
   
end.