Задача наполовину решена, на вторую половину никаких идей.
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.
Слово нечетной длины программа находит, а вот что дальше делать с поиском слова с наибольшим числом гласных букв, никаких идей