var

  s: string;  //Текст записки

  i: integer;  //Переменная для цикла

begin

  writeln('Введите текст записки');

  readln(s);  //Вводим текст записки

  for i:= length(s) downto 1 do  {length(s) - это функция, которая определяет длину строки s; мы записываем текст записки посимвольно, начиная с последнего символа и заканчивая первым}

    write(s[i]);  

end.

Отметь решение, как лучшее)