Помогите с задачей, задача на строки Опции

[Точьичка]

Вот текст задачи:

Дана строка символов. Определить количество слов, начиная с буквы "а", вывести на печать самое длинное слово, начинающееся с буквы "а"

помогите пожалуйста

Сообщение отредактировано: Точьичка - 26.11.2007 0:54

[Точьичка]

получилось составить зодачу, которая считает слова, начинающиеся на а

clrscr;
readln(s);
w:=' ';
Insert(w,s,1);
q:=0;
For i:=1 to length(s) do
    IF s[i]=#32  THEN
    For i:=1 to length(s) do
    IF s[i+1]=#97 then
    q:=q+1;
writeln(q);
readkey;
end.

а вот подсчет количества "а" в слове не идет никак