Паскаль!!!определить, введена украинская буква является гласной или согласной ! помогите пожалуйста

Var s,gl,sogl:string;a,b:integer;
begin
gl:=іїиеєаяоуюІЇИЕЄАЯОУЮ;
sogl:=мбпвфндтлзсцчжшрйгкхМБПВФНДТЛЗСЦЧЖШРЙГКХ;
writeln (Введите украинскую букву);
read (s);
a:=pos (s,gl);
b:=pos (s,sogl);
if (a <> 0) or (b <> 0) then
begin
if (a <> 0)then writeln (Гласная);
if (b <> 0)then writeln (Согласная);
end else writeln (Неправильный ввод);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.