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

for i:=0 to index.Length-1 do beginif index[i]>maxi then maxi:=index[i];end;for i:=0 to index.Length-1 do if maxi=index[i] then beginmaxi:=i;writeln(m[maxi-1]);break;end;end.

это концовка

исправил

но уже нашел как проще

опять не могу изменить чтобы абзацы сделать

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.3begin  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максимальное