Вывести слова, где гласные не чередуются с согласными

Program Pract6;
var
    u: string;
    ws: array[1..100] of string;
    w: string;
    len: integer;
    i, j, q: integer;
 
begin
    writeln('Введите текст: ');
    readln(u);
    len := length(u); //длина строки u
    i := 1;
    while i <= len do
        if (lowercase(u[i]) >= 'a') and (lowercase(u[i]) <= 'z') then begin //если u[i] - символ от A до Z
            w := lowercase(u[i]); //присваиваем w первый символ
            i := i + 1; //переходим на следующий символ
            while (i <= len) and //пока не дошли до конца строки
            ((lowercase(u[i]) >= 'a') and // и символ от A
            (lowercase(u[i]) <= 'z')) do begin // до Z
                w := w + lowercase(u[i]); //к символу прибавляем еще символ
                i := i + 1; //переходим на следующий символ
            end;
            j := 1; //если попадается пробел или что-то еще
            {Как только попадется «небуква» предыдущий цикл прерывается.
            Далее следует проверить, нет ли только что сформированного слова в массиве.
            Если нет, то следует его туда записать.}
            while (j <= q) and (w<>ws[j]) do
                j := j + 1;
            if j > q then begin
                q := q + 1;
                ws[q] := w;
            end;
        end
        else //Если первый или два и больше последующих за словом символов «небуквы», то требуется лишь перейти к следующему символу.
            i := i + 1;
 
    for i := 1 to q do
        writeln(ws[i]);//выводим слова на экран
 
end.

begin
    writeln('Введите текст: ');
    readln(u);
    len := length(u); //длина строки u
    i := 1;
    while i <= len do