Записи

[_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.

[Костя КС]

var t,s: string;
j,i:byte;
f:boolean;
ch : set of char;
begin
ch := ['a','e','i','o','u'];
readln (s);

if s[length(s)] <> '.' then s := 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]<>'.') do
begin t:=t+s[i]; inc(i); end;

 if t[1] = ' ' then j:=2 else j :=1;
 f:=true;
while j<length (t) do begin
  if ((t[j] in ch) and (t[j+1] in ch))
   or((not(t[j] in ch)) and (not(t[j+1] in ch)))  then
   f:=false; inc(j); end;
   if f=true then writeln (t);
dec(i);
end;
inc(i);
end;
end.

[_Hanter_]

Спасибо)))))