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

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.