Найти все симметричные натуральные числа из промежутка от а до б

var a, b, i, k, t: integer;
    found: boolean;
begin
  repeat
    write('a > 0;   a = ');
    readln(a);
    write('b >= a;  b = ');
    readln(b)
  until (a > 0) and (b > 0) and (b >= a);
  found := false;
  writeln('Palindromes:');
  for i := a to b do
    begin
      t := i;
      k := 0;
      repeat
        k := k * 10 + t mod 10;
        t := t div 10
      until t = 0;
      if k = i
        then begin
          found := true;
          writeln(i)
        end
    end;
  if not found then writeln('Not found.');
  readln
end.

var a, b, i, k, t: integer;
    found: boolean;
begin
  a := -1111; //ввод a и b с проверкой
  b := -2222;
  while (a <= 0) or (b <= 0) or (b < a) do
    begin
      write('a > 0;   a = ');
      readln(a);
      write('b >= a;  b = ');
      readln(b)
    end;
  found := false; //палиндромов пока не найдено
  writeln('Palindromes:');
  i := a;
  while i <= b do //цикл от a до b
    begin
      t := i; //число во временную переменную
      k := 0; //здесь будем формировать "перевёрнутое" число
      while t > 0 do //пока не используем все разряды числа, цикл
        begin
          k := k * 10 + t mod 10; //приписываем к "перевёрнутому" числу очередной разряд числа
          t := t div 10 //убираем использованный разряд
        end;
      if k = i //если число и "перевёрнутое" число равны,
        then begin //значит, палиндром
          found := true; //помечаем, что палиндром найден
          writeln(i) //печатаем палиндром
        end;
      inc(i)
    end;
  if not found then writeln('Not found.'); //если палиндромов не найдено, так и пишем
  readln //любуемся результатом, как надоест, нажимаем <Enter>
end.