Выведите на экран все двузначные числа, которые при возведении в квадрат дают палиндром. Pascal Abc

Var x, a:integer;

begin

x:=10;

while (x<100) do

begin

a:=x*x;

if (a<999) then

begin

if (((a mod 10) * 100 + ((a mod 100) div 10) * 10 + (a div 100)) = a) then

writeln (x) ;

end

else

begin

if (((a mod 10) * 1000 + ((a mod 100) div 10) * 100 + ((a mod 1000) div 100) * 10 + (a div 100)) = a) then

writeln (x) ;

end;

x:=x+1;

end;

end.