Будь ласка допоможіть з програмою в середовищі Pascal

[Вася123456709]

Задано не порожню послідовність з український літер. Між сусідніми словами кома, а за останнім словом крапка. Надрукувати в алфавітному порядку всі голосні кожного слова.
Будь ласка поможіть, потрібно срочно. Наперед дякую...

From Stilet:
Перевод:
Задана непустая строка с украинскими буквами. Между соседними словами запятые, а после последнего - точка.
Напечатать в алфавитном порядке все гласные каждого слова.

[Stilet]

Намекаю: Здесь ты возьмешь разворот предложения в массив: http://www.programmersforum.ru/showt...369#post398369
Только там пробел на запятую поменяешь.
А отсортировать гласные после разворота можно так:

var c:set of 'А'..'я'; j:integer; k:char;
...
 c:=[];
 for j:=1 to Length(a[count]) do
  if a[count][j] in ['А','О','Е','У','И','я'] then inclide(c,a[count][j]);
 for k:='A' to 'я' do if k in c then write(k); writeln;
...

Это в качестве идеи. Копипастить не надо - не поможет. Просто пойми что я предлагаю и примени к своей задаче.

[Вася123456709]

Дякую за допомогу)

[Stilet]

Будь ласка. Только имей ввиду - это русскоязычный форум. Украинский знают тут не все. (Потому я и стараюсь переводить такие темы), так что пиши по русски.

[Вася123456709]

Извини, в будущем раз буду писать на русском языке.

[Stilet]

Вот и славненько )

[Serge_Bliznykov]

тему то закрываем?

[Stilet]

Та пусть будет... Вдруг еще автор чего спросит по этому.

[Вася123456709]

Спасибо за помощь. Вы меня очень выручили!)