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.