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

Begin 
var s:=readlnstring; 
var gl:='АЕИОУЫЯЁЮЭ'; 
var m:=s.ToWords; 
var k:=m.Length; 
var b:=new integer[k]; 
for var i:=0 to k-1 do   
b[i]:=m[i].Where(c->c.ToUpper in gl).Count;   
Writeln(m[b.IndexMax])
end.

PascalABC.NET 3.3

begin
  var gl:=['А','а','Е','е','Ё','ё','И','и','О','о','У','у','Ы','ы','Э','э','Ю','ю','Я','я'];
  var a:=ReadlnString('>').ToWords(' ',',','.');
  var b:=ArrFill(a.Length,0);
  for var i:=0 to a.Length-1 do
   b[i]:=a[i].Where(x->x in gl).Count;
  writeln(b.Max);
  foreach var i in b.IndexesOf(i->i=b.Max) do Println(a[i]);
end.

Пример:
> Дан текст найти слово,в котором максимальное количество гласных букв
5
максимальное