{* Вставка разделителя в слово №2 *}

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

Program pas;

Uses zamena_simvola.pas; {* Эту строку можно удалить *}
{    Условие:    если строка начинается и оканчивается одним и тем же знаком, во всей    строке заменить этот знак четвертым символом строки  }
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  S : String; {вводимая строка}
  i : integer; {переменная цикла}
Begin
  clrscr; {* Стираем всё с экрана *}
  TextColor(LightRed); {* Установить  цвет текста *}
  Write('Вставка разделителя в слово. Задача №2');
  Writeln; {* Пропускаем одну строку *}
  TextColor(15); {* Выбрать Белый цвет текста *}
  Writeln; {* Пустая строка *}
  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); {выводим результат}
  readln; {* Ждем нажатия Enter *}
End.