Среди всех натуральных чисел из диапазона от А до В вывести те, которые являются палиндромами (запись числа в обратном порядке совпадает с записью самого числа) — Pascal(Паскаль)

function getobr(a: integer): integer;
var
  b: integer;
begin
  b := 0;
  while a <> 0 do
  begin
    b := b * 10;
    b := b + a mod 10;
    a := a div 10;
  end;
  getobr := b;
end;

var
  a, b, i: integer;

begin
  write('Vvedite A i B : ');
  readln(a, b);
  for i := a to b do
    if i = getobr(i) then
      write(i, ' ');
  readln;

end.