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

Даны координаты 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