В введённой строке заменить 2й слева и 2й справа символы на "Ж"
//Язык Pascal Program Test; Var str: string; Begin Write('Введите строку: '); Readln(str); str[2] := 'Ж'; str[length(str) - 1] := 'Ж'; Writeln(); Writeln('Строка после обработки: ', str); End.