обработка символьных данных

[uHkBu3uTop]

в заданом предложении указать слово, в котором доля гласных (А,Е,И,О) максимальна. пож програму целеком

[TinMan]

Сообщение от uHkBu3uTop

в заданом предложении указать слово, в котором доля гласных (А,Е,И,О) максимальна.

А как ты определяешь "долю"? Это количество этих гласных в слове, деленое на количество всех гласных в этом слове?

пож програму целеком

спасибо, не хочется

[Ruslasy]

while not eof(fi) do begin
read(fi,b);
end;

fi - файл
b - байт
Читает файл по символьно.

[denisbrain]

uses crt;
function AgetCountS(s:string):real;
var x:integer;
 a:integer;
begin
   a:=0;
   for X:=1 to length(s) do
   if s[x] in ['А','Е','И','О'] then a:=a+1;
   AgetCountS:=Round(a/length(s)*100);
end;
var s:string;
begin
   Writeln('Введите слово');
   readln(s);
   Writeln('Доля букв А,Е,И,О ');
   Writeln(AgetCountS(s),'%');
   readln;

end.

рублей за 200 покажем все остальное