{* Замены в строке 1 *}

Unit ZAMENSTR1;
Interface
Implementation
Begin
 writeln('Если строка начинается и оканчивается одним и тем же знаком, во всей строке заменить этот знак четвертым символом строки');
End.

Program zamenstr1;

Uses zamenstr1.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  S : String; {вводимая строка}
  i : integer; {переменная цикла}
Begin
  Write('Исходная строка : ');
  Readln(S);
  If S[1] = S[Length(S)] Then {проверям условие, при котором замену можно}
    For i := 1 To Length(S) Do {осуществлять, если выполняется, то в цикле}
      If s[i] = S[Length(S)] Then
        S[i] := S[4]; {проверяем и заменяем символы}
  Writeln('Результирующая строка : ', S); {выводим результат}
End.