В заданном предложении указать слово, в котором доля гласных максимальна

var
s,s2,t: string;
voices: set of char;
i,j,k,max: byte;
begin
        voices:=['а','е','и','о','у','ы','ю','я','ё','э'];
        readln(s);
        s:=s+' .'; {пробел с точкой}
        i:=1;
        while s[i]<>'.' do begin {i пиздячит по всей строке до точки}
                j:=i; {крупный счётчик i передаёт для j позицию строки}
                k:=0; {k будет накапливать гласные в цикле ниже}
                s2:='';{s2 будет содержать копию вновь обрабатываемого слова}
                while s[j]<>' ' do begin {j циклирует по одному слову до пробела}
                        s2:=s2+s[j];
                        if s[j] in voices then k:=k+1;
                        Inc(j);
                end;
                if k>max then begin {если в слове много гласных..}
                        t:=s2;{то это слово сохраняем}
                        max:=k;{количество тоже сохраняем}
                end;
                i:=j+1;{пропускаем пробел до которого дошёл внутренний счётчик
                        j, и возвращаемся наверх к следующему слову строки}
        end;
        writeln(t,'(',max,')');
        readln;
end.