Проверить, чередуются ли в слове гласные и согласные буквы

Один из пунктов задачи - проверить чередуются ли в слове гласные и согласные буквы, не знаю как это сделать, подскажите пожалуйста)
2 ответа

const gl=['а','е','ё','и','о','у','ы','э','ю','я'];
 
var s:string;
 
function checkword(const arg:string):boolean;
var i:byte;rez:boolean;
begin
  for i:=1 to length(arg)-1 do begin
    if (arg[i] in gl) and not (arg[i+1] in gl) or
    not (arg[i] in gl) and  (arg[i+1] in gl) then
        rez:=true
    else begin
        rez:=false;
        break;
    end;
  end;
  checkword:=rez;
end;
 
begin
  writeln('введите слово');
  readln(s);
  if checkword(s) then
    writeln('буквы чередуются')
  else
    writeln('буквы не чередуются');
  readln
end.


спасибо!!