Procedure & Function2003 Опции

[<Maximus_2003_>]

          PLEASE HELP!!!
                                            Задача
 Дано N-ое кол-во слов. Вывести слово в катором боше гласных.
                                           {нужно решить с помощью процедуры}
       

                                       ???      

                 НУЖНО ОЧЕНЬ СРОЧНО!!!!!!!!!!!!!
                                                                                        PLEASE!!!!!!!

[trminator]

А с помощью функции можно?

Код

{Функция считает кол-во гласных в слове}
function count_glasn(var s : string): byte; {s - слово, которое проверяем}
const glasn: set of char =['a','e','i','o','u','y'];
var i, res : byte;
begin res:=0;
   for i:=1 to length(s) do
     if s[i] in glasn then inc(res);
   count_glasn := res
end;

{тестовая программа}
var s     : string;
   max   : byte;
   cur   : byte;
   max_s : string;
   i, N : integer;
begin
   readLn(N); max:=0;
   for i:=1 to N do
   begin
       readLn(s); cur := count_glasn(s);
       if cur > max then
       begin
           max_s := s;
           max := cur
       end;
   end;
   writeLn(max_s)
end.