Является ли заданное натуральное число палиндромом

Program n1;{Задача.  Проверить, является ли натуральное число N палиндромом.}
uses crt;
var
         a, { данное число }
         b, { копия a }
         d, { делитель числа }
         d1, { делитель для нахождения левых цифр }
         d2 { делитель для нахождения правых цифр }
         :longint;
         n, { количество цифр }
         i, { номер числа сравнений цифр }
         ts1, { цифра в левой части записи числа }
         ts2 { цифра в правой части записи числа }
         :integer;
         flag { признак палиндромности числа }
         :0..1;
       begin
         clrscr;
         write ('Введите число: ');
         readln (a); {узнаем, сколько цифр в числе}
         b := a;
         n := 0;
         d1 := 1;
         while b<>0 do
           begin
             Inc (n); {увеличение n на единицу}
             b:=b div 10;
             d1:=d1*10;
           end;
         d1:=d1 div 10;
         d2:=1;
         flag:=0;
         for i:=1 to n div 2 do
           begin
             ts1:=a div d2 mod 10;
             d2:=d2*10;
             ts2:=a div d1 mod 10;
             d1:=d1 div 10;
             if ts1<>ts2
               then
                 begin
                   flag:=1;
                   writeln('Это число не является палиндромом.');
                   break;
                 end;
           end;
         if flag=0
           then
             writeln ('Данное число является палиндромом.');
         readln;
end.

label exit;
var p,i : integer;
begin
writeln('Введите число:');
readln(p);
for i:=p to 1000 do begin
if ((i mod p)=0) then goto exit;
end;
writeln(i);
readln;
end.

var p,i:integer;
begin
write('p=');
readln(p);
for i:=100 to 999 do
if (i mod p=0) and (i<>p) then begin
writeln(i);
readln;
exit;
end;
end.

var p,i:integer;
begin
write('p=');
readln(p);
for i:=100 to 999 do
if (i mod p=0) and (i<>p) then begin
writeln(i);
readln;
exit;
end;
end.

var p,i,tmp:integer;
begin
write('p=');
readln(p);
if(p > 499)
begin
     writeln("eror");
     exit;
end;
if(p > 50) then
     tmp:=2*p;
else
     tmp:=100;
for i:=tmp to 999 do
if (i mod p=0) and (i<>p) then begin
writeln(i);
readln;
exit;
end;
end.

function pal(i : longint) : boolean;
var
s : string;
v,k,l : longint;
begin
pal:=true;
l:=length(s);
str(i,s);
if odd(l)=false then begin
k:=trunc(l/2);
for v:=1 to k do begin
if s[v]<>s[l-v+1] then pal:=false;
end;
end;
if odd(l)=true then begin
k:=trunc(l/2+0.5);
for v:=1 to k-1 do begin
if s[v]<>s[l-v+1] then pal:=false;
end;
end;
end;
var
i : longint;
begin
readln(i);
if pal(i) then writeln('yes')
               else writeln('no');
readln;
end.

uses crt;
var N,M,P:longint;
    i,k:integer;
begin
clrscr;
write('Vvedite naturalnoe chislo N=');
readln(N);
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 write('Palindrom')
else write('Ne palindrom');
readln
end.