помогите с задачой

[Saken]

Дан текст. Найти все слова, содержащие наибольшее количество гласных латинских букв(a,e,i,o,u)...

[alex_fcsm]

Корявенько немного...

uses crt;
var s,s1,sub:string;
    i,j,m,n,k,max:integer;
    a:array[1..100] of string;
    Mi:set of char;
begin
clrscr;
mi:=['a','o','e','i','u','y'];
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')or(s[i]=',') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   end
else sub:=sub+s[i];
until i=length(s);
inc(n);
a[n]:=sub;
max:=0;k:=0;
for i:=1 to n do
 begin
 k:=0;
 for m:=1 to length(a[i]) do
  if a[i][m] in Mi then inc(k);
 if k>max then max:=k;
 end;
for i:=1 to n do
 begin
 k:=0;
 for m:=1 to length(a[i]) do
  if a[i][m] in Mi then inc(k);
 if k=max then writeln(a[i]);
 end


end.

[Saken]

братан, большое те спс...