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

Procedure inverse(var a: integer);
var i,k: integer;
begin
  k:=a; i:=0;
  while k>0 do
  begin
    i:=i+(k mod 10);
    k:=k div 10;
    if k>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
палиндром