Дано натуральное число. Определить является ли оно палиндромом. Написать процедуру получения нового числа. Паскаль

Var n,m:integer;
procedure inverse(a:integer; var b:integer);
begin
b:=0;
while agt;0 do
 begin
 b:=b*10+a mod 10;
 a:=a div 10;
 end;
end;
begin
write(n = );
readln(n);
inverse(n,m);
if n=m
 then writeln(Число - палиндром)
 else writeln(Число - не палиндром);
end.

Пример:
n = 123321
Число - палиндром

Procedure inverse(var a: integer);
var i,k: integer;
begin
  k:=a; i:=0;
  while kgt;0 do
  begin
    i:=i+(k mod 10);
    k:=k div 10;
    if kgt;0 then i:=i*10; 
  end;
  a:=i;
end;

// основная программа
var k,n: integer;
begin
  write(число: );  readln(n);
  k:=n;
  inverse(n);
  if k=n then writeln(палиндром)
  else writeln(не палиндром);
end.

число: 123456754
не палиндром

число: 456898654
палиндром