{* Задача 186 *}

Unit ZADACH186;
Interface
Implementation
Begin
 writeln('Дана строка символов. Вычислить количество букв "а". Заменить в строке буквосочетание "ох" на "ах"');
End.

Program example_4;

Uses zadach186.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  s  : String;
  i  : integer;
  k  : integer;
  k1 : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  writeln('Vvedite lyubuyu stroku:');
  readln(s);
  k := 0;
  k1 := 0;
  For i := 1 To length(s) Do {* Переменная i увеличивается с 1 до length(s) *}
    Case s[i] Of        'a' : inc(k); {* Увеличиваем k на 1 *}
      'o':
  If s[i + 1] = 'x' Then
  Begin
    s[i] := 'a';
    inc(k1) {* Увеличиваем k1 на 1 *}
  End;
  
End;
  writeln('V ishodnoy stroke kolichestvo bukv "a" ravno ', k, '.');
  writeln('Bukbosochetanie "ox" zameneno na "ax":');
  writeln(s);
  writeln('S uchetom zamen v stroke kolichestvo bukv "a" ravno ', k1 + k);
  readln
  End....