Паскаль, срочно С клавиатуры вводится текст. подсчитать и вывести на печать количество слов текста,начинающихся сгласной.

const     g = ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я']; var     s: string;     k, i: integer; begin     readln(s);     s := ' ' + LowerCase(Trim(s));          k := 0;     for i := 1 to length(s) do         if (s[i] = ' ') and not (s[i + 1] in g) then             k := k + 1;          writeln(k); end.