в записке слова записаны напротив расшифровать записку т.е. записать их как

var

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

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

begin

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

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

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

    write(s[i]);  

end.

Отметь решение, как превосходнейшее)