Обработка символьных и строковых данных [Pascal]

[CheD]

Задан текст (20 слов). Преобразовать его так, чтобы слова располагались по возрастанию количества входящих в них гласных.
Вот, что то пытался делать, но зашел в тупик... Заранее спасибо.

Program Lab_7;
const g: set of char=['ё','у','е','ы','а','о','э','я','и' ,'ю',
'Ё','У','Е','Ы','А','О','Э','Я','И' ,'Ю',
'e','y','u','i','o','a',
'E','Y','U','I','O','A'];
var s,sl: string;
i,j,k: byte;
begin
write('s=');
readln(s);
s:=s+',';
sl:='';
for i:=1 to length(s) do
if (s[i]<>',') and (s[i]<>' ') then sl:=sl+s[i] else
if length(sl)>0 then
begin
k:=0;
for j:=1 to length(sl) do
if sl[j] in g then inc(k);