Код:

program ts2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const gls=['q','w','r','t','p','s','d','f','g','h','j','k','l','z','x','c','v','b','n','m'];
sogls=['e','u','i','o','a'];
var f:text;
    S:string;
    W:String;
    i,ml,q,k:integer;
 
Function Proverka(str:String):Boolean;
Var rezult : Boolean;
i,n,m,j:byte;
Begin
 
    for i:=1 to length(str) do
    for j:=1 to length(str) do begin
     m:=0;
     n:=0;
 
     if str[i] in gls then m:=m+1;
     if str[j] in sogls then n:=n+1;
     if n>=m then rezult:=true
     else rezult:=false;
     Proverka:=rezult;   end;
     {If (pos(str[1],copy(str,2,Length(str)-1)) > 0)
        Then Result := True
        Else Result := False;
        DoubleFirstChar := Result; }
End;
 
begin
     assign (f,'1.txt');
     reset(f);
     while not(eof(f)) do
     begin
          readln(f,S);
 
                    While pos(' ',S) <> 0 Do
 
          Begin
               If (S[1] <> ' ')
               Then
                  Begin
                      W := copy(S,1,pos(' ',S)-1);
                       S := copy(S,pos(' ',S),Length(S)-Length(W));
                       If Proverka(W) Then  Write(W,' ')
 
                  End
             else  S := copy(S,2,Length(S)-1);
 
          End;
          W := S;
          If Proverka(W) Then Write(W,' ');
     end;
     close (f);
     WriteLn;
     ReadLn;
end.