Решите пожалуйста задачу на языке pascal

Var a,b,c:longint;
begin
write(Введите целое положительное число a=);
readln(a);
b:=a;
c:=0;
while bgt;0 do 
begin 
c:=c*10+(b mod 10); 
 b:=b div 10;
 end;
writeln(c);
if c=a then
write(Палиндром)
else  write(Не палиндром);
end.