СРОЧНО. Пожалуйста посчитайте. Нужно составить программу к решению задачи: "Дано число n. Перевернуть число".

var
  n, res, m: longint;
  s: string;

begin
  readln(n);
  while n <> 0 do
  begin
    m := n mod 10;
    s := s + (m.ToString);
    n := n div 10;
  end;
  res := s.ToInteger;
  writeln(res);
end.