{* Задача 234 *}

Unit ZADACH234;
Interface
Implementation
Begin
 writeln(' Заменить данную букву в слове многоточием');
End.

Program z21;

Uses zadach234.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  aa : String;
  a  : String;
  b  : String;
  i  : longint;
  l  : longint;
  j  : longint;
Begin
  clrscr; {* Очищаем экран *}
  textcolor(15); {* Выбрать Белый цвет текста *}
  write(' введите слово: ');
  readln(a);
  write(' введите букву: ');
  readln(aa);
  a := a + '                             ';
  l := length(a);
  If length(aa) > 1 Then
    halt;
  For i := 1 To l Do {* Цикл для i => [1 .. l] *}
    If a[i] = aa Then
    Begin
      If il Then
      Begin
        l := l + 2;
        For j := l Downto i + 1 Do
          a[j] := a[j - 2];
      End;
      l := l + 2;
      a[i] := '.';
      a[i + 1] := '.';
      a[i + 2] := '.';
    End;
  write('Итог: ', a);
  readln; {* Ждем подтверждения пользователя *}
End.