Задача на строки, Задача на строки Опции

[dog]

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

Задача наполовину решена, на вторую половину никаких идей.

PROGRAM PRP4;
var a, temp:string;
i:integer;
BEGIN
     WRITELN('Введите текст');
     READLN(a);
     a:=' '+a;
     for i:= length(a) downto 1 do
     begin
         if a[i]<>' ' then temp:=temp+a[i]
         else begin
             if length(temp) mod 2<>0 then WRITELN(temp); {распечатка temp для примера т. к. temp слово нечетной длины}
             temp:='';
         end;
     end;
END.

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