{* Слово наоборот *}

Unit SLOVO;
Interface
Implementation
Begin
 writeln('Вы вводите слово, а программа выводит его наоборот.');
End.

Program SLOVO_NAOBOROT;

Uses slovo.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  e : integer; {celochislennie tipi}
  x : String;
  y : String; {strokovaya(simvol'noe stroka) peremennaya}
  i : byte;
  k : byte; {metka}
Begin
  1 :  clrscr; {ochistka ekrana}
  Writeln('ВВЕДИТЕ СЛОВО: ');
  readln(x);
  k := Length(x); {Lenght - vozvrashaet dinamicheskuu dlinu stroki}
  y[0] := x[0];
  For i := 1 To k Do {i - peremennaya, 1 - nachal'noe znachenie, k - konechnoe znachenie}
    y[i] := x[k - i + 1];
  Writeln('ВЫВОД: ');
  Writeln(y);
  writeln('ВЫХОД - 1, НАЧАТЬ ЗАНОВО - 2');
  readln(e);
  If (e = 1) Then
    exit
  Else Goto 1; {uslovie}
End.