Даны 2 натуральных числа выяснить является ли хоть одно из них палиндромом (перевёртышем)

uses crt;
function Palindrom(n:longint):boolean;
var m,p:longint;
    i,k:integer;
begin
m:=n;
p:=0;
while m>0 do
  begin
    i:=m mod 10;
    p:=p*10+i;
    m:=m div 10;
  end;
Palindrom:=p=n;
end;
var a,b:longint;
    f:boolean;
begin
clrscr;
writeln('Введите 2 натуральных числа');
readln(a,b);
f:=Palindrom(a) or Palindrom(b);
if f then write('Хотя бы 1 число палиндром')
else write('Оба числа не палиндромы');
readln
end.

program sly;                                                                                    
uses crt;                              
var s:string;                                                                                      
k,i,n:integer;                                                                
fl:boolean;                                                                   
begin                                                                                             
clrscr;                                   
readln (s);                                                                                        
n:=length(s);                                                                 
fl:=true;                                                                     
for i:=1 to n div 2 do                                                        
if s[i]<>s[n-i+1] then fl:=false;                                             
if fl then writeln ('polidrom')                                               
else writeln ('Ne polidrom');                                                 
readln;                                   
end.

program sly; 
var s:string;
fl :boolean;
procedure pal(s:string; var fl:boolean);
var
k,i,n:integer;
begin 
n:=length(s); 
for i:=1 to n div 2 do 
if s[i]<>s[n-i+1] then fl:=false;
end;
begin
fl:=true;
readln (s);
pal(s,fl);
if fl then writeln ('polidrom') 
else writeln ('Ne polidrom'); 
end.