Помогите сделать строки в Delphi

[Владимир88]

Из строки слов разделенных пробелами,удалить лишние пробелы,оставив по одному.Выделить слова,начинающиеся с гласной буквы,и записать в массив слов.Отсортировать массив слов по возростанию числа символов. Вывести исходную строку,преобразованную,массив слов,отсортированный массив слов.

[Stilet]

С потолка:

s:='слова слова слова';
with TStringList.create do begin
 Sorted:=true;
 DelimitedText:=s;
 for i:=Count-1 downto 0 do begin
  if (Strings[i]='')or not (Strings[i][1] in ['а','о','и','я']) then delete(i);
 end;
 s:=DelimitedText;
 free;
end;
Выводим s

Не пробовал.

[Владимир88]

Выделить слова,начинающиеся с гласной буквы,и записать в массив слов.Отсортировать массив слов по возростанию числа символов.

Это через процедуру нужно сделать