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

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.