Найти и сохранить в строке те слова текста, количество гласных букв в которых превышает количество согласных

program EvgeniiSp;
uses Crt;
var
 st: string;
//----------------------
 procedure InputData;
  begin
   writeln('Введите массив слов:');
   readln(st);
  end;
//----------------------
 function Good(m: string): boolean;
  var
   i,j,k: byte;
   flag: boolean;
   glas: set of char;
  begin
   k:=0;
   j:=0;
   Good:=false;
   glas:=['а','е','у','ы','о','э','я','и','ё','ю'];
   for i:=1 to length(m) do
    if m[i] in glas
      then inc(k)
      else inc(j);
   if k > j then Good:=true;
  end;
//----------------------
 procedure AnalysisData;
  var
   i: byte;
   words,word: string;
  begin
   for i:=0 to length(st) do
    begin
     word:='';
     while (st[i]<>' ') and (st[i]<>'.') and(i<>length(st)+1) do
      begin
       word:=word+st[i];
       i:=i+1;
      end;
     if Good(word) = true then words:=words+word+' ';
    end;
   write(words,'.');
  end;
 
begin
 ClrScr;
 InputData;
 AnalysisData;
end.

uses crt;
var s,ps,ss:string;
     alf,glas:set of char;
     gl,sog:integer;
begin
 clrscr;
 writeln('Введите строку ');
 readln(s);
 alf:=['а'..'я'];
 glas:=['а','е','у','ы','о','э','я','и','ё','ю'];
 ss:='';
 i:=0;
repeat
 i:=i+1;
   gl:=0;
   sog:=0;
 
    ps:='';
    while s[i] in alf do
      begin
        ps:=ps+s[i];
        if s[i] in glas then gl:=gl+1 else sog:=sog+1; 
        i:=i+1;
      end;
    if gl>sog then ss:=ps;
    if s[i] not in alf then ss:=ss+s[i];
until(i>=length(s));
writeln(ss);
readln;
end.