В заданном предложении указать слово, в котором доля буквы «а» максимальна.

program name;
 
const
  ind = 100;
Var
  s : string;
  i, j, temp, temp_a, max_a, indmax_a  : integer;
  Word : array[0..ind] of string;
 
begin
  temp := 0;
  i := 0;
  Write('In your text: ');
  Read(s);
 
  for i := 0 to Length(s) do
  begin
    if (s[i] = ' ') then
    begin
      Word[i] := Copy(s,0,i-1);
      s := Copy(s,i-1,Length(s));
      Dec(temp);
    end;
  end;
 
  for i := 0 to temp do
    Begin
      for j := 0 to Length(word[i]) do
        begin
          if (Word[i][j] = 'a') then
            Dec(temp_a);
        end;
 
      if temp_a > max_a then
        Begin
          max_a := temp_a;
          indmax_a := j;
          temp_a := 0;
        end;
    end;
 
  Writeln('Max kol-Bo 6ykB "a" B cJIoBe: ', word[i]);
  Readln;
end.

procedure TForm1.Button1Click(Sender: TObject);
begin
str:=edit1.Text;
t:=0;
K:=0;
st:=' ';
for i:=1 to Length(str)  do
begin
while str[i]<> ' ' do
if str[i]='a' then
p:=p+str[i];
k:=k+1;
 begin
if k>t then
t:=k;
st:=p;
Label2.Caption:=p;
end;
 
end;
end;
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
const
  //Множество разделителей слов.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
  //Множество гласных букв.
  Da = [
    //Русские гласные буквы.
    'а', 'я', 'о', 'ё', 'ы', 'и', 'э', 'е', 'у', 'ю',
    'А', 'Я', 'О', 'Ё', 'Ы', 'И', 'Э', 'Е', 'У', 'Ю',
    //Гласные буквы латиницы.
    'a', 'e', 'i', 'o', 'u', 'y',
    'A', 'E', 'I', 'O', 'U', 'Y'
  ];
  //Наибольшее количество слов, которое может быть записано в массив.
  M = 100;
var
  S : String;
  Arr : array[1..M] of String;
  i, j, Len, LenW, CntA, CntAMax : Integer;
begin
  //Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
  //Если после переключения русские буквы показываются неверно,
  //следует открыть системное меню консольного окна - щелчком мыши в левом
  //верхнем углу окна консоли и выбрать:
  //Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  repeat
    Writeln('Задайте текст:');
    Readln(S);
    //Наибольшее количество гласных букв в слове.
    CntAMax := 0;
    //Индекс элемента массива.
    j := 0;
    //Добавляем в массив слова с наибольшим количеством гласных букв.
    Len := Length(S);
    LenW := 0;
    CntA := 0;
    for i := 1 to Len do begin
      //Пропускаем разделители.
      if S[i] in D then Continue;
      //Уточняем длину слова.
      Inc(LenW);
      //Подсчёт количества гласных букв в пределах слова.
      if S[i] in Da then Inc(CntA);
      //Отслеживаем конец слова.
      if (i = Len) or (S[i + 1] in D) then begin
        if CntA > CntAMax then begin
          //Если найдено слово с бОльшим количеством гласных, чем текущее
          //наибольшее значение, то начинаем запись в массив заново (с начала массива).
          CntAMax := CntA;
          j := 1;
          Arr[j] := Copy(S, i - LenW + 1, LenW);
        end else if CntA = CntAMax then begin
          //Если найдено слово с количеством гласных, равным текущему наибольшему,
          //то записываем его в массив под очередным номером.
          Inc(j);
          Arr[j] := Copy(S, i - LenW + 1, LenW);
        end;
        //Сброс длины слова.
        LenW := 0;
        //Сброс счётчика согласных в слове.
        CntA := 0;
      end;
    end;
 
    //Теперь все искомые слова записаны в массив Arr.
    //Распечатываем эти слова.
    Writeln('Слова, содержащие наибольшее количество гласных букв:');
    for i := 1 to j do begin
      if i > 1 then Write(', ');
      Write(Arr[i]);
    end;
    Writeln;
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,i : integer;
  d, max : Extended;
  str, temp : string;
  buk : Char;
begin
  str:=form1.Edit1.Text+' ';
  buk:=form1.Edit2.Text[1];
  a:=0;
  b:=0;
  max:=0;
  temp:='';
  i:=1;
  while i<length(str) do
    begin
      //  Набор слова из буковок
      if str[i]<>' ' then
        begin
          temp:=temp+str[i];
          //  Всего букв в слове.
          Inc(b);
          //  Подсчет кол-ва ключевых букв
          if str[i]=buk then Inc(a);
        end;
 
      //  Если пробел, т.е. слово набрано
      if (str[i]=' ') and (temp <> '') then
        begin
          //  Вычисляем долю.
          d := a/b;
          //  Если кол-во ключевых букв в слове
          //  больше всех предыдущих
          if max < d then
            begin
              form1.Edit3.Text:=temp;
              form1.Edit4.Text:=FloatToStr(d);
              max:=d;
            end;
          temp:='';
          a := 0;
          b := 0;
        end;
      i:=i+1;
    end;
end;