Ввведённой строке заменить 2й слева и 2й справа символы на "ж"

//Язык Pascal

Program Test;

Var str: string;

Begin

Write('Введите строку: ');
Readln(str);

str[2] := 'Ж';
str[length(str) - 1] := 'Ж';

Writeln();
Writeln('Строка после обработки: ', str);

End.