Палиндром

[A_Orlov]

Помогите, пожалуйста, решить задачку:
Дано четырехзначное число. Проверить истинность высказывания: «Данное число читается одинаково слева направо и справа налево».

[Филантроп]

uses crt;
function Palindrom(n:longint):boolean;
var m,p:longint;
    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:longint;
begin
clrscr;
write('Vvedite naturalnoe chislo n=');
readln(n);
 if Palindrom(n) then writeln('Yes')
 else writeln('No'); 
readln;
end.