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

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.

Паскаль, срочно С клавиатуры вводится текст. подсчитать и вывести ** печать количество...