работа с текстом-поиск и учёт,замена элементов Опции

[Roman]

здрасте,
по просьбам трудящихся решил разбить топик,
вот:
програма читает из текст фаила слово(до 256 букв)  
и:  
а)находит кол. повторов заданного 3 значного буквосочетания.  (abc)
б)сообщает чего больше- гласных или согласных букв.  
в)производит замену 2 одинаковых рядом стоящих гласных, написанных с маленкой буквы, на большие(аа=>АА)  
Выводит слово в указынное пользователем место и цветом(CRT) на экран.(буквы латинские)
всё что можно нужно запихать в процедуры и функции.


заранее благодарен

[trminator]

Функция ищет число повторов заданной подстроки (substr) в строку (s). Длина substr любая.

Код

function count_substr(var in_s, substr : string): integer;
var s    : string;
   answ : integer;
begin
   answ:=0; s:=in_s;
   while pos(substr, s) > 0 do
   begin
       inc(answ);
       delete(s, pos(substr, s), length(substr))
   end;
   count_substr := answ
end;