Program Razglas;
{Дан массив слов. Выявить слова, в которых наибольшее количество гласных букв}
{http://studentps.narod.ru}
const n=5;
var a:array[1..n] of string;
    b:array[1..6] of char;
    c:array[1..n] of integer;
    i,j,k,max:integer;
    e:boolean;
begin
b[1]:='a'; b[2]:='e'; b[3]:='i'; b[4]:='o'; b[5]:='u'; b[6]:='y';
writeln;
writeln('Megaglasnyi finder 1.0 17.11.2003');
writeln('Программа ищет слово с наибольшим количеством разных маленьких латинских гласных букв');
for i:=1 to n do begin
writeln('Введите ',i,' слово массива');
readln (a[i]);
end;{for}
for i:=1 to 6 do begin
 for j:=1 to n do begin
 e:=true;
  for k:=1 to length(a[j]) do begin
   If e=true then begin
    If a[j][k]=b[i] then begin
    inc(c[j]); {в слове на гласную больше}
    e:=false; end;{if}
   end;{if}
  end;{for}
 end;{for}
end;{for}
max:=0;
for i:=1 to n do begin
If c[i]>max then max:=c[i];
end; {for}
for i:=1 to n do begin
If c[i]=max then writeln('В слове ',a[i],' встретилось ',max,' разных гласных маленьких латинских букв.');
end; {for}
writeln ('Больше мегарешений только на http://studentps.narod.ru');
readln;
end.