Обработка символьных и строковых данных [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);

[whatever]

Малость увлекся в процессе, но тем не менее:

const
  g:set of char=['ё','у','е','ы','а','о','э','я','и' ,'ю',
                 'Ё','У','Е','Ы','А','О','Э','Я','И' ,'Ю',
                 'e','y','u','i','o','a',
                 'E','Y','U','I','O','A'];
type
  slovo=record
    str:string;
    gl:byte;
  end;
  slv=array of slovo;
var
  s:string;
  tmp:slovo;
  sl:slv;
  i,j,k: byte;
begin
  write('s=');
  readln(s);
 // s:=s+',';
  setlength(sl,1);
  k:=0;
  sl[0].str:='';
  for i:=1 to length(s) do
  begin
    if (s[i]<>' ') then
      if not (s[i] in [',','.',';']){etc} then
        sl[k].str:=sl[k].str+s[i];
    if (s[i]=' ') then
      begin
        inc(k);
        setlength(sl, length(sl)+1);
        sl[high(sl)].str:='';
      end;
  end;

  for i:=0 to high(sl) do
    begin
      sl[i].gl:=0;
      for j:=1 to length(sl[i].str) do
        if sl[i].str[j] in g then
          inc(sl[i].gl);
    end;

  for i:=1 to high(sl) do
    for j:=0 to high(sl) do
    if sl[j].gl>sl[i].gl then
      begin
        tmp:=sl[j];
        sl[j]:=sl[i];
        sl[i]:=tmp;
      end;

  for i:=0 to high(sl) do
    write(sl[i].str,', ');
  writeln;
  readln
end.