поиск парных букв в тексте Опции

[wolker]

Добрый вечер!
Очень нужна помощь!
Просто горю.
Может кто сталкивался с этой бедой.
Вводим текст в строку. И если в этом тексте есть слова в которых встречаются две буквы "а",
выводим эти слова. Как написать эту программу на Паскале. Помогите чем можете.
Спасибо.

[compiler]

у меня получилось как-то так...

procedure wha(const s:string);
const
        l:set of char =['A'.. 'Z', 'a'..'z'(* ,'' *)];       //дополнить буквами
        s_let='а';
var
        in_a, i:integer;
        sn:string;
begin
        in_a:=0;
        for i:=1 to length(s)+1 do begin
                if not (s[i] in l) then begin
                        if in_a=(*>=*)2 then writeln(sn);       //а если в слове 3 буквы?
                        in_a:=0;        sn:='';
                end
                else    begin
                        if  s[i] = s_let then inc(in_a);
                        sn:=sn+s[i];
                end;
        end;
end;

будут вопросы, задавай...

upd
множество букв можно заменить на множество разделителей..

Сообщение отредактировано: compiler - 16.03.2008 4:44

[Гость]

Спасибо огромное. Все как нельзя кстати.