Допустим, s: string;
c: char;
Ввод:
readln(s);
тогда смена местами первого и второго:
c := s[1];
s[1] := s[2];
s[2] := c;
И последнего и предпоследнего:
c := s[length(s)];
s[length(s)] := s[length(s) - 1];
s[length(s) - 1] := c;
Вывод:
writeln(s); Не компилировал и не хочу. Все элементарно. c - перенная для временного хранения
