function countVowel(path: string): integer;
var     f: file;
        ch: char;
begin
    countVowel := 0;
    assign(f, path);
    reset(f);
    while not eof(f) do
    begin
        read(f, ch);
        if ch in ['a', 'e', 'o', 'u', 'i', 'y']
            then countVowel := countVowel + 1;
    end;
end;