Одномерные массивы!! Паскаль!

[Korun]

Дано множество A из N точек. Найти пару различных точек этого множества с минимальным1|максимальным2 расстоянием между ними и само это расстояние (точки выводятся в том же порядке, в котором они перечислены при задании множества A)

[IT-man]

type Tpoint=record
 x,y:real;
end;
var
a:array[1..100] of tpoint;
..........
begin
.....
max:=0;
min:=9999;
for i:=1 to n do
for j:=1 to n do
begin
if (i<>j) then begin 
 dl:=sqrt(sqr(a[i].x-a[j].x)+sqr(a[i].y-a[j].y));
if dl>max then begin max:=dl; im1:=i;im2:=j;end;
if dl<min then begin min:=dl; im3:=i;im4:=j;end;
end;end;
writeln(min ' между точками ',im3:5, im4:5);
writeln(max ' между точками ',im1:5, im2:5);
.....
end.

[Korun]

Спасибо, но не работает!