Дано предложение. Определить сколько в нем гласных букв — Pascal(Паскаль)

var
    s:string;
    i,L,a:Integer;
    c:set of char;
begin
    readln(s);
    c := ['а', 'А', 'о', 'О', 'е', 'Е', 'ё', 'Ё', 'и', 'И', 'у', 'У', 'ы', 'Ы', 'э', 'Э', 'ю', 'Ю', 'я', 'Я'];
    L := Length(s);
    for i:=1 to L-1 do
        if s[i] in c then inc(a);
    writeln('гласные: ', a);
end.