Найти целые числа палиндромы, которые при возведении в квадрат также дают палиндромы (22^2=484)

uses crt;
var a,b,i,i1,p,k:integer;
begin
writeln('Введите диапазон чисел [a,b]:');
read(a,b);
writeln('Числа-палиндромы, квадраты которых тоже палиндромы');
k:=0;
for i:=a to b do
 begin
  i1:=i;
  p:=0;
  while i1>0 do
   begin
    p:=p*10+i1 mod 10;
    i1:=i1 div 10;
   end;
  if p=i then
   begin
    i1:=i*i;
    p:=0;
    while i1>0 do
     begin
      p:=p*10+i1 mod 10;
      i1:=i1 div 10;
     end;
    if p=i*i then
     begin
      writeln(i,'  ',i*i);
      k:=1;
     end;
   end
 end;
if k=0 then write('Таких чисел в этом диапазоне нет')
end.

 if p=i*i then
     begin
      writeln(i,'  ',i*i);
      k:=1;
     end;

for i:=a to b do
 begin
  i1:=i; //например=123
  p:=0;
  while i1>0 do
   begin
    p:=p*10+i1 mod 10;//=3,32,321
    i1:=i1 div 10;//=12,1,0
   end;
  if p=i then //у нас не=, 123 и 321 не палиндромы