Чет не получается c Case of...

[Володян]

Надо написать программу, которая определяет, является ли введенный символ гласной или согласной буквой английского языка....Я не знаю как записать Case of....

[Сtrl]

В данном случае удобнее использовать if, а не case. Но раз уж задание такое...

case upcase(c) of
'A', 'E', 'O', 'U', 'I', 'Y': writeln('Гласная');
'Q', 'W', 'R', 'T', 'P', 'S', 'D', 'F', 'G', 'H', 'J', 'K', 'L', 'Z', 'X', 'C', 'V', 'B', 'N', 'M': writeln('Согласная');
else writeln('Не буква');
end;

[Володян]

А можешь написать начало, а то чата не получается.