Составить программу, которая позволяет определить, является ли введенная буква гласной или согласной — Pascal(Паскаль)

uses crt;
const gl=['A','a','E','e'];//добавить, можно и русские
      sg=['B','b','C','c'];
var c:char;
begin
clrscr;
write('Введите букву ');
readln(c);
if c in gl then write('Гласная')
else if c in sg then write('Согласная')
else write('Это не буква');
readln
end.