Рядкові змінні, Написал програму но она роботает не правильно, не знаю в чом ошибка... Опции

[_Hanter_]

Надрукувати слова, в яких голоснийі літери (a, e, i, o, u) чергуються з приголосними.

Вот програма. Помогите!!!

var t,s: string;
j,i:byte;
f:boolean;
begin
readln (s);
S:=' '+s;
i:=1;
while i<length (s) do begin
if (s[i]=' ') and (s[i+1]<>' ') then begin t:=' ';
i:=i+1;
while (s[i]<>' ') and (s[i+1]<>'.') do
begin t:=t+s[i]; inc(i); end;
j:=1; writeln (t);
f:=true;
while j<length (t) do begin
if ((t[j] in ['a','e','i','o','u']) and (t[j+1] in ['a','e','i','o','u']))
or (not(t[j] in ['a','e','i','o','u']) and (t[j+1] in ['a','e','i','o','u'])) then
f:=false; inc(j); end;
if f=true then writeln (t);
dec(i);
end;
inc(i);
end;
end.