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

Var x,a:integer;
begin
x:=10;
while (xlt;100) do
begin
a:=x*x;
if (alt;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.