В заданном предложении указать слово, в котором доля гласных максимальна. Считать, что слова в тексте отделены друг от друга одним пробелом — Pascal(Паскаль)

program change2;
const
 gl = ['a','e','i','o','u','y','A','E','I','O','U','Y'];
var
 s,st2,stmax:string;
 i:integer;
 max,count:real;
begin
 max:= 0;
 readln(s);
 s:= s + ' ';
 for i:= 1 to length(s) do begin
   if (s[i] <> ' ')  then begin
     st2:= st2 + s[i];
     if s[i] in gl then
     count:=count+1;
   end
   else
     if count/length(st2) > max then begin
       max:= count/length(st2);
       stmax:= st2;
       st2:= '';
       count:= 0;
     end;
 end;
 writeln(stmax);
end.