Как вывести число натуральных чисел-палиндромов от a до b (a, b не превышают 10000) в пфскале

Var

a, b, i, n, j, l, ier:integer;

s:string;

p:boolean;

begin

Write ('Введите границы интервала в виде пары натуральных чисел ') ;

Read (a, b) ;

n:=0;

for i:=a to b do

begin

Str (i, s) ;

l:=Length (s) ;

if l=1 then Inc (n)

else begin

j:=1;

repeat

p: = (s[j]=s[l-j+1]) ;

Inc (j)

until (j>l) or (not p) ;

if p then Inc (n)

end

end;

Writeln ('Количество палиндромов равно ', n)

end.

Тестовое решение:

Введите границы интервала в виде пары натуральных чисел 1550 2450

Количество палиндромов равно 10