kuvmb.PAS

{* Заменить букву б слово сочитанием ку *}

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

Program pas;

Uses kuvmb.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  S     : String;
  i     : integer;
  v     : integer;
  dlina : integer;
  x     : integer;
  y     : integer;
Begin
  writeln('Введите текст');
  readln(s);
  dlina := length(s);
  For i := 1 To dlina + 1 Do {* Переменная i увеличивается с 1 до dlina *}
  Begin
    If s[i] = 'б' Then
    Begin
      delete(s, i, 1);
      insert('ку', s, i);
    End;
    
  End;
  v := x + y;
  Writeln('В результате замены буквы а слово сочитание ку - ');
  Writeln(s);
  readln; {* Ждем нажатия Enter *}
End.