Дано натуральное число n (n<=9999). Является ли это число палиндромом с учетом четырех цифр, как, например, числа 2222 и 6116 - Pascal(Паскаль)

function getobr(a: integer): integer;
var
  b: integer;
begin
  b := 0;
  while a <> 0 do
  begin
    b := b * 10;
    b := b + a mod 10;
    a := a div 10;
  end;
  getobr := b;
end;

var
  n: integer;

begin
  write('Vvedite N : ');
  readln(n);
  if n = getobr(n) then
    write('Palindrom')
  else
    write('Ne palindrom');
  readln;

end.