Как вывести число натуральных чисел-палиндромов от 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