Вводится слово с клавиатуры, а надо, чтобы оно получилось наоборот... Например, вводишь слово CAT, нажимаешь Enter, и оно отображается как TAC.

var
st:string;                         {сама строка           }
tmp:char;                          {символ для сохранения }
i:byte;                            {в цикле               }

BEGIN
write('Введи строку: ');
readln(st);

for i:=1 to trunc(length(st)/2) do {меняем символы до половины            }
 begin                             {всей длины строки                     }
  tmp:=st[i];                      {сохраним символ                       }
  st[i]:=st[length(st)-i+1];       {на его место ставим другой            }
  st[length(st)-i+1]:=tmp;         {на место того ставим тот что сохранили}
 end;

writeln;
writeln(st);
readln;
END.