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

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