Найдите количество элементов, запись которых — палиндромы - Pascal ABC

const m = 5;
var i, k, n, t, r: integer;
begin
  k := 0;
  writeln('Введите ', m, ' неотрицательных чисел');
  for i := 1 to m do
    begin
      repeat
        write('Число ', i, ': ');
        readln(n)
      until n >= 0;
      t := n;
      r := 0;
      repeat
        r := 2 * r + t mod 2;
        t := t div 2
      until t = 0;
      if n = r then inc(k)
    end;
  write('Количество палиндромов в СС 2: ', k)
end.