5b 6

Var
  S     : String;
  i     : integer;
  dlina : integer;
Begin
  writeln('Введите текст, содержащий букву а');
  readln(s);
  dlina := length(s);
  For i:=dlina downto 1 Do
  If copy(s,i,1) = 'а' Then
    Begin
      delete(s, i, 1);
      insert('ку', s, i);
    End;
  Writeln('В результате замены букв а на "ку" - ');
  Writeln(s);
End.