Проверить, заданное натуральное число является оборотнем (Delphi)

[kirito_17]

Проверить, заданное натуральное число является оборотнем.
вот как то так) помогите кто сможет)

[Stilet]

function reverse(n:integer):Integer;
begin Result:=0;
 while n>0 do begin
  Result:=Result*10+(n mod 10);
  n:=n div 10;
 end;
end;

И

if 1991=reverse(1991) then Берегись! Оборотень!!!

Это если не ошибаюсь.