Помогите пожалуйста, очень срочно! Паскаль: Дан Текст. Слова в тексте разделены одним или...

Question

Помогите пожалуйста, очень срочно! Паскаль:
Дан Текст. Слова в тексте разделены одним или несколькими пробелами. Написать программу, выводящую все слова, начинающиеся с гласных букв русского алфавита.

Answer 1

var
i:integer;
s:string;
const
glas=['Й','У','Е','Ы','А','О','Э','Я','И','Ю'];
beginwrite ('Vvedite predlohenie: ');
readln (s);
i:=1;
while i<=length (s) do      <br>begin           
if ((i=1) or (s[i-1]=' ')) and (s[i] in glas) then           
begin             
while not ((s[i] in ['.',',',';','!','?',':',' '])) and (i<=length (s)) do                    <br>begin                         
write (s[i]);                         
i:=i+1;                   
end;             
writeln;           
end;         
i:=i+1;     
end;
readln;
end.