Program st1;       {заголовок программы}
uses crt;    {использование стандартного модуля}

var s1, s2: string; {описание строковых переменных}
      i: integer;             {целочисленная переменная}

begin   {начало тела программы}
   clrscr;  {очистка экрана}
   writeln ('Vvedite stroku:');  {вывод на экран предложения ввести строку}
   readln(s1);  {чтение строки с клавиатуры}
   for i := length(s1) downto 1 do    {в цикле от последнего символа строки до первого}
     s2 := s2 + copy(s1, i, 1);  {копируем по одному символу в новую строку}

   writeln ('Novaya stroka: ');   
   writeln (s2);   {вывод новой строки}

   readkey;    {ожидание нажатия клавиши}
end.    {конец программы.}

{Результаты выполнения программы:
Vvedite stroku:
Eat this icecream! NOW!!!!!
Novaya stroka:   
!!!!!WON !maerceci siht taE
}