Дан текстовый файл,каждая строка которого является

program _strings;
 
const
 
 fin        = 'input.txt';
 
var
 
 fi         : text;
 instring   : string;
 
function GetMaxVW(const S : string ) : string;
{возвращает  слово с максимальным кол-вом гласных из строки}
 const
  cSet      = ['у','У','е','Е','ы','Ы','и','И','ю',
                'Ю','а','А','о','О','э','Э','я','Я'];
 
 var 
  i,k,j     : byte;
  s_word    : string;
  cur,max   : byte;
  s_max     : string;
 
begin
 i:=1;
 k:=1;
 max:=0;
 s_max:='';
 repeat
  while i<=length(s) do if s[i]=' ' then break else inc(i);
  s_word:=copy(s,k,i-k);
  inc(i);
  k:=i;
  cur:=0;
  for j:=1 to length(s_word) do 
    if s_word[j] in cSet then inc(cur);
  if cur>max then begin
                   max:=cur;
                   s_max:=s_word;
                  end;
 until i>length(s);
 GetMaxVW:=s_Max;
end;
 
BEGIN
{ assign & input }
 assign(fi,fin);reset(fi);
 
{ proces. & output }
  While not eof(fi) do 
     begin
      Readln(fi,instring);
      Writeln(instring,' : ',GetMaxVW(instring))
     end;
close(fi);
 
END.