Найти все квадратные палиндромические числа с нечетным количеством цифр

var i, x, y, k, a, b: integer;
    f: boolean;
begin
  repeat
    write('Начало интервала: ');
    readln(a);
    write(' Конец интервала: ');
    readln(b);
    if (a > b) or (a < 0) or (b < 0) then writeln('Интервал задан неверно.')
  until (a <= b) and (a >= 0) and (b >= 0);
  f := true;
  for i := trunc(sqrt(a)) to trunc(sqrt(b)) do
    begin
      x := i * i;
      if x >= a
        then begin
          y := 0;
          k := 0;
          while x > 0 do
            begin
              y := y * 10 + x mod 10;
              x := x div 10;
              inc(k)
            end;
          if odd(k) and (y = i * i)
            then begin
              writeln(y);
              f := false
            end
        end
    end;
  if f then writeln('Квадратных палиндромов не найдено.');
  readln
end.