Подсчитать количество букв "й", "ы" и "я", содержащихся в заданной строке.

[VoltZZZ]

нужна помощь, помогите пожалуйста:
Подсчитать количество букв "й", "ы" и "я" (в отдельности), содержащихся в заданной строке. Вставить по два пробела после каждой запятой и удалить все буквосочетания "ой".

[Serge_Bliznykov]

я так думаю, речь идёт о языке программирования Паскаль?

ну это же АЗБУКА (задание очень-очень простое!)

var
  CountChar : array[1..3] of integer;
  i : integer;
  s : string;
begin
  WriteLn('Введите строку: ');
  {Readln(s); } s :=' шыло мой чаще, якобы ломы, бой не рой, под стрелой не стой.';

  for i:=1 to 3 do CountChar[i] := 0;

  {подсчёт букв в строке}
  for i:=1 to Length(s) do
    case s[i] of
     'й' : inc(CountChar[1]);
     'ы' : inc(CountChar[2]);
     'я' : inc(CountChar[3]);
    end;

 WriteLn('количество букв: й-',CountChar[1],' ы-',CountChar[2],' я-',CountChar[3] );

 {вставляем по два пробела после каждой запятой}
 WriteLn('вставляем по два пробела после каждой запятой...');
 for i:=Length(s) downto 1 do
   if s[i]=',' then Insert('  ',s,i+1);

 {вывод полученного результата после вставки}
 WriteLn(s);

 {удаляем буквосочетания ОЙ}
 WriteLn('удаляем буквосочетания ОЙ');
 while Pos('ой', s)>0 do Delete(s,Pos('ой', s), 2);

 {вывод полученного результата после удалений}
 WriteLn(s);

 Readln;

end.

[VoltZZZ]

большое спасибо)