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