Найти все слова, содержащие наибольшее количество гласных латинских букв (a, e, i, o, u).

var a:array[1..100] of string;

a[i]:='строка';

a[i]:=t1[1];

uses crt;
var a: array [1..10] of string;
    s, sl: string;
    i, j, k, kg, kgmax: integer;
begin
     write ('s='); readln (s); s:=s+' ';
     sl:='';
     j:=1;
     for i:=1 to length (s) do
         if s[i]<>' ' then
                      begin
                      sl:=sl+s[i];
                      if s[i] in ['a','e','u','i','o'] then
                      inc(kg);
                      end
            else
                begin
                     a[j]:=sl;
                     inc(j);
                     sl:='';
                     inc(k);
                     if kg>kgmax then
                        begin
                        kgmax:=kg;
                        kg:=0;
                        end
                     else kg:=0;
                end;
writeln ('Максимальное количество гласных =', kgmax);
        if kgmax>0 then
        begin
             writeln ('содержат следующие слова');
                     for j:=1 to k do
                         begin
                              kg:=0;
                              sl:=a[j];
                              for i:=1 to length(sl) do
                              if sl[i] in ['a','e','u','i','o'] then
                              inc(kg);
                              if kg=kgmax then writeln(a[j]);
                         end;
        end;
end.

uses math;
var
    a:array[1..1000] of string;
    d:array[1..1000] of longint;
    s,ss:string;
    i,k,m,t,j:longint;
begin
 
    readln(s);
    s:=s+' ';
 
    for i:=1 to length(s) do begin
    
        if s[i] in [',','.','!','?',' '] then begin
        
            k:=k+1;
            a[k]:=ss;
            ss:='';
        
        end
        else
        ss:=ss+s[i];
    
    end;
 
    for i:=1 to k do begin
    
        t:=0;
        for j:=1 to length(a[i]) do 
            if a[i][j] in ['a', 'e','i', 'o', 'u'] then t:=t+1;
        d[i]:=t;
        m:=max(m,d[i]);  
    end;
 
    for i:=1 to k do 
        if d[i]=m then writeln(a[i]);
 
end.

uses crt;
var a: array [1..10] of string;       // массив, каждый элемент будет словом
    s, sl: string;                    // исходная строка и строка для работы с отдельным словом
    i, j, k, kg, kgmax: integer;      //переменные-счетчики для строки, массива, для подсчета количества слов, гласных в слове, максимального количества гласных в слове
begin
     write ('s='); readln (s); s:=s+' ';    // считываю строку в память и добавляю в конце пробел, чтобы не загружать код для выделения последнего слова
     sl:='';                                // задаю начальное значение переменных - для слова - 0 символов, для счетчика массива слов - 1
     j:=1;
     for i:=1 to length (s) do              // задаю цикл для перебора всех символов строки
         if s[i]<>' ' then                  // если символ строки не является пробелом, то
                      begin
                      sl:=sl+s[i];                         //добавляю этот символ в слово
                      if s[i] in ['a','e','u','i','o'] then        // если символ - это гласная, то
                      inc(kg);                                         // увеличиваю значение количества гласных на 1
                      end
            else                                             // иначе
                begin
                     a[j]:=sl;                               //в элемент массива под номером j помещаю получившееся слово
                     inc(j);                                 // увеличиваю индекс элемента массива на 1
                     sl:='';                                 // очищаю значение переменной слова
                     inc(k);                                 // увеличиваю значение количества слов на 1
                     if kg>kgmax then                        // если количество гласных в слове превышает ранее найденное максимальное значение количества гласных в слове, то
                        begin
                        kgmax:=kg;                          //меняю значение количества гласных в слове на новое, большее
                        kg:=0;                              // очищаю переменную для подсчета гласных в слове
                        end
                     else kg:=0;                            //иначе только очищаю переменную для подсчета гласных в слове
                end;
writeln ('Максимальное количество гласных =', kgmax);       //вывожу на экран максимальное количество гласных в слове
        if kgmax>0 then
        begin
             writeln ('содержат следующие слова');
                     for j:=1 to k do                      // задаю цикл для перебора только что сформированного массива слов
                         begin
                              kg:=0;                       // для каждого слова очищаю вначале количество гласных
                              sl:=a[j];                                //помещаю элемент массива в переменную sl
                              for i:=1 to length(sl) do                     //для этой переменной (слова) задаю цикл перебора для проверки условия
                              if sl[i] in ['a','e','u','i','o'] then              //если символ под номером  i - гласная, то
                              inc(kg);                                                     //увеличиваю количество гласных для данного слова на 1
                              if kg=kgmax then writeln(a[j]);                                    //если количество гласных совпадает с ранее вычисленным максимальным количеством гласных, то
                         end;                                                                    // вывожу этот элемент массива (то есть слово) на экран
        end;
end.