НУжно: написать написать в паскале программу, которая печатает слова наоборот(например: мама- амам) Помогите. Заранее спасибо

строку наоборот?

var s:string;

i:integer;

Begin

  read(s);

  for i:= length(s) downto 1 do

     s1:= s1+s[i];

  writeln(s1);

End.