Дано число N.Отыскать количество чисел в промежутке от 1 до N

Var
   N,A,B:longint;
   k:integer;
Begin
k:=0;
Write('N = ');ReadLn(N);
For N:= 1 to N do
    Begin
    A:=N;
    B:=0;
    While A gt; 0 do
       Begin
       B:=B*10+(A mod 10);
       A:=A div 10
       End;
    if B=N then k:=k+1
    End;
WriteLn('Искосое количество: ',k)
End.