Программа на строки

[Alex_12Proxy]

Помогите написать программу!!!
1) Вводится строка
а)Заменить все слова "ох" на "ах".
б)Удалить все сочетания "иии".
с)Определить сколько раз встретился символ "?".
Все это надо реализовать в одной программе!

[Alex_12Proxy]

Или хотя бы по частям помогите!

[fbus]

не вопрос - аська в подписи

[user125]

Вроде так

var
   s:string;
   z,n,i:integer;
begin
   n:=0;
   readln(s);
   while pos('ох',s)>0 do begin
      z:=pos('ох',s);
      delete(s,z,1);
      insert('a',s,z);
   end;
   while pos('иии',s)>0 do delete(s,pos('иии',s),3);
   for i:=1 to length(s) do
      if s[i]='?' then inc(n);
   writeln(s,' ? встречается в строке ',n,'  раз.');
   readln;
end.