Ввести в массив слов все слова из предложения, в которых гласных букв больше, чем согласных

Program Words;
 
Var
  
  i,count:integer;
  WordsMas:Array [1..50] of String;
  inString,iWord:String;
 
  
  
Procedure PullWord(var aString,aWord:string);  
{процедура отделяет от всей строки одно слово
  за слово будем считать любую последовательность 
  символов разделенную пробелами}
 
 Var
 
 iSpace_pos:integer;
 
 begin
 iSpace_pos:=pos(' ',aString); {ищем пробел в строке}   
 if iSpace_pos>0 then begin    {если пробел найден}              
            aWord:=copy(aString,1,iSpace_pos);  {записываем слово в переменную}
            delete(aString,1,iSpace_pos);  {удаляем слово из строки}
            end
       else begin {если пробел не найден}
            aWord:=aString; {то строка является словом}
            aString:=''; 
            end;
end;
 
function ScanWord(var aWord:String):boolean;
{ Функция сканирует слово и возвращает 
  TRUE  если гласных букв больше, чем 
  согласных, иначе FALSE              }
 var
   Sl,Gl:set of char;
   isl,igl,i:integer;
 begin
 
 Sl:=['ц','Ц','к','К','н','Н','г','Г','ш','Ш','щ','Щ','з','З',
      'х','Х','ъ','ь','ф','Ф','в','В','п','П','р','Р','л','Л',
      'д','Д','ж','Ж','ч','Ч','с','С','м','М','т','Т','б','Б',
      'Ъ','Ь']
 ;
 Gl:=['у','У','е','Е','ы','Ы','а','А','о','О','э','Э','я','Я',
      'и','И','ю','Ю']
 ;
 for i:=1 to length(aWord) do
  begin
  if aWord[i] in Sl then inc(iSl);
  if aWord[i] in Gl then inc(iGl);
  
  if iSl < iGl then ScanWord:=TRUE
               else ScanWord:=FALSE
  end;
end;
 
Begin
{ input }
 Write('input String: ');Readln(inString);
{ Scan. string }
 while length(inString)>0 do begin {пока в строке есть слова}
                             PullWord(inString,iWord); {отделяем слово}
                             if ScanWord(iWord) {Проверяем слово}
                             then begin
                                  inc(count);
                                  WordsMas[count]:=iWord
                                  end;
                             end;
                                                     
{ output } 
Writeln('count: ',count);
for i:=1 to count do writeln(WordsMas[i]);                            
End.