Строки (string), Помагите пожалуйста решить зачачку.... Опции

[САНЯ]

Помагите кто-нибудь решить задачку на Паскале, у меня экзамены скоро.... Это моя последняя возможность исправить оценки! Вот эта задачка:
Определить сколько слов в тексте начинаются с согласных. Текс подготовлен следующим образом, между слова - пробел, после каждого слова - точка.
ПОЖАЛУЙСТА, ПОМОГИТЕ!!!

[Ozzя]

Наверху кнопочка с лупой есть. Нажми. Набери что-нибудь типа "согласные". Среди выведенных тем ищи программу, похожую на твою.

[Altair]

Определить сколько слов в тексте начинаются с согласных. Текс подготовлен следующим образом, между слова - пробел, после каждого слова - точка.

var
 s:string;
 res,i:byte;
 sgl:set of char;

begin
res:=0;
 sgl:=['w','r','t','p','s','d','f','g','h','k','l','z','x','c','v','b','n','m'];
 writeln('enter text: ');
 readln(s);
 for i:=1 to length(s) do
     if ((s[i] in sgl) and (i=1)) or ((s[i] in sgl) and (i>1) and (s[pred(i)] = ' ')) then inc (res);
 writeln(res,' ; press enter...');
 readln;
end.

[САНЯ]

БОЛЬШОЕ СПАСИБО!!!