написать программу которая подтверждает числа полиморфы

//PascalABC.NET 3.1 сборка 1200begin  var n := ReadInteger('n =');  if n < 0 then begin    writeln('Число отризательное и не может быть перевертышем');    Halt;  end;    var s := n.ToString();  if ReverseString(s) = s then    writeln('Перевертыш')  else  writeln('Не перевертыш');end.