Turbo Pascal: Что не правильно?

Question

Даны координаты n точек на плоскости: 
(X1, Y1),…, (Xn, Yn) (n≤30). Найти номе-ра пары точек, расстояние между которыми наиболь-шее (считать, что такая пара единственная) 
Что не правильно? 
 
program massiv; 
uses crt; 
var a:array[1..10] of integer; 
procedure cp22; 
var x,y,i,n,m,k,c:integer; 
d,b:real; 
Begin 
 writeln('Введите кол-во точек N'); 
 readln(N); 
 If n<=20 then 
 For i:=1 to N do 
 begin 
 b:=d; 
 writeln('Введите координаты точки ',i,' (X,Y)'); 
 readln(x,y); 
 writeln('Введите координаты точки ',i+1,' (X,Y)'); 
 readln(n,m); 
 d:=sqrt((n-x)*(n-x)+(m-y)*(m-y)); 
 i:=i+1; 
 If b

If b

Александр Анисенков · Accepted Answer

Нужно не каждую с последующей сравнивать, а попарно) 
И, кстати, в задаче квадратный корень не нужен, проще сравнивать между собой квадраты расстояний)