Даны слова из строч. русских букв,слова разделены запятыми. Напечатать в алфавитном порядке гласные,входящие в каждое слово(Delphi

[Галенька]

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

множества!
помогите плиз!!

[Mandrivnyk]

паскаль, что ли?

[Галенька]

Делфи

[Hacker19_90]

стучи договоримся! Ася в профиле!

[Serge_Bliznykov]

я исправил название темы.
а теперь посмотрите внизу страницы "Похожие темы", которые автоматически (по совпадению ключевых слов в названии темы) предлагает движок форума.
Плюс ещё кучу подобных тем можно найти поиском по форуму.
Дерзайте, пробуйте, творите, всё получится...

ну, или, если лень - тогда фриланс...

[Hacker19_90]

как-то так

AssignFile (f, 'input.txt');
Reset (f);
While (not(Eof(f))) do
begin
     readln (f, s);
     s1 := '';
     s := s + ',';
{ТОЛЬКО ВОТ ЭТОТ БЛОК НАДО ЗАЦИКЛИТЬ ПО СТРОКА S НЕ КОНЧИТСЯ ДОГАДАЙТЕСЬ КАК}
     s1 := copy(s, 1, Pos(s, ','));
     repeat
         flag := false;
         for i := 1 to (length(s1) - 1) do
             if s1[i] > s1[i+1] then
             begin
                  flag := true;
                  temp := s1[i];
                  s1[i] := s1[i+1];
                  s1[i+1] := temp;
             end;
     until flag = false;
     for i := 1 to length(s1) do
     begin
          if s1[i] in ['а','е','ё','и','о','у','ы','э','ю','я'] then write (s1[i]);
          Writeln;
     end;
     delete (s, 1, pos(s, ','));
{ВОТ ДО СЮДА}
end;
CloseFile (f);