{* Задача 401 *}

Unit ZADACH401;
Interface
Implementation
Begin
 writeln('В тексте в каждой строке осуществить перестановку таким образом, чтобы первый символ стал последним, второй - предпоследними т. д.');
End.

Program zadach401;

Uses zadach401.pas; {* Эту строку можно удалить *}
Uses Crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  temp : String;
  sm   : Array [1..3] Of String;
  rez  : Array [1..3] Of String;
  i    : integer;
  n    : integer;
  k    : integer;
  past : boolean;
Begin
  Randomize;
  ClrScr; {* Очищаем экран *}
  past := false;
  For n := 1 To 3 Do {* Увеличиваем n от 1 до 3 с шагом 1 *}
  Begin
    sm[n] := Chr(random(26) + 65); {Первая заглавная буква}
    For i := 1 To 150 Do {* Переменная i увеличивается с 1 до 150 *}
    Begin
      k := random(33);
      If k > 25 Then
      Begin
        If past = false Then
        Begin
          sm[n] := sm[n] + ' ';
          past := true;
        End;
        
      End;
      Else Begin {Прописные буквы}
        sm[n] := sm[n] + Chr(k + 97);
      past := false;
    End;
    
  End;
  sm[n] := sm[n] + '.'; {Конец предложения – “.”}
  WriteLn(sm[n]); {Вывод сгенерированного текста}
  WriteLn; {* Вывод пустой строки *}
End;
For n := 1 To 3 Do {* Цикл для n => [1 .. 3] *}
Begin
  k := pos('.', sm[n]); {Нахождение конца предложения}
  rez[n] := '';
  For i := 1 To k Do {* Увеличиваем i от 1 до k с шагом 1 *}
  Begin
    temp := sm[n];
    Delete(temp, 1, k - i); {Выделение букв в обратном порядке}
    Delete(temp, 2, 150);
    rez[n] := rez[n] + temp; {Запись их в массив}
  End;
  WriteLn(rez[n]); {Вывод результата}
  WriteLn; {* Пропускаем одну строку *}
End;
ReadLn; {* Ждем нажатия Enter *}
End..