Поиск натуральных чисел меньше 100, которые при возведении их в квадрат дают палиндром

uses WinCrt;
Var
i,x,x3,x2: Integer;
begin
For i:=1 to 100 do
Begin
x:=i*i;
If x<=100 then
Begin
x2:=x mod 10;
x3:=x div 10;
End;
If (x>=100) and (x<=1000) then
Begin
x2:=x mod 10;
x3:=x div 100
End;
If (x>=1000) Then
Begin
x2:=x mod 100;
x3:=x div 100;
End;
If x2=x3 Then
begin
WriteLn(i,' ');
End;
End;
End.

uses crt;
var s,s1:string;
   n,z,i,k,summ,m,o:integer;
begin
 clrscr;
 readln(n);
 str(n,s);
 s1:='';
 for i:=length(s) downto 1 do begin
  z:=z+1;
   s1:=s1+s[i];
 end;
writeln(s1);
for i:=1 to length(s) do begin
if s[i]=s1[i] then k:=k+1;
end;
if k=z then writeln('palindrom')
else writeln('ne palindrom');
end.

uses crt;
function Palindrom(n:integer):boolean;
var m,p:integer;
    i:integer;
begin
m:=n;
p:=0;
while m>0 do
  begin
    i:=m mod 10;
    p:=p*10+i;
    m:=m div 10;
  end;
if p=n then Palindrom:=true
else Palindrom:=false;
end;
var n,i,k:integer;
begin
clrscr;
writeln('Числа от 1 до ста, дающие в квадрате палиндром');
for i:=1 to 100 do
if Palindrom(i*i) then
writeln(i:2,' - ',i*i:4);
readln
end.