Составить программу в Pascal. В которую введя любое трехзначное число оно выводит число-перевертыш (пример ввожу 122 и мне выводит 121 или 569 и и мне 565)

var

s, s2: string;

n, m: longint;

i, err: integer;

begin

writeLn ('Введите целое трехзначное число: ');

readln (n);

str (n, s);

s2 : = '';

for i : = length (s) downto 1 do

s2 : = s2 + s[i];

val (s2, m, err);

writeLn ('Полученное число: ', M, '.');

readln;

end.