Решение задач на паскале тип задачи строки

[actavian]

Помогите решить 2 задачи на строки плиз 1) из слова (программа) путём вырезок и склеек его букв получить слова (ром) и (рампа).
2) Дана строка из строчных русских букв. Между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке все гласные буквы, которые входят в каждое слово.

[Poma][a]

№ 2

const 
       RGL = ['a','е', .. ]  {сюда пишешь русский букаффки (гласные)}
....
         count := 1;
         for i := 1 to Length(s) do 
                 if s[i] in RGL then begin
                         a[count] := s[i];
                         Inc (count);
                 end;

ну а потом смотрим пост от Сержа и совмещаем ... только там строка хотя разницы не какой (строка = массив символов)...