Склавиатуры вводится число и надо вывести это число наоборот паскаль.

var s: string;    i: integer;
begin    
 writeln('Введите число');  
    readln(s);    
  for i:=length(s) downto 1 do
      write(s[i]);
end.