Строки. Сформировать массив из количества слов каждой строки, начинающихся на гласную букву - Delphi - Ответ 3180864

procedure TForm1.Button1Click(Sender: TObject);
const
r=[' ','.']; // разделители слов
g=['А','Е', 'Ё', 'И', 'О', 'У', 'Ы', 'Э','Ю', 'Я'];// гласные
var
s,st:ansistring;
i,j,x:integer;
a:array of string;
b:array of integer;
begin
// читаем строки из memo1 и заполняем массив
for I := 0 to memo1.Lines.Count-1 do begin
                         setlength(a,length(a)+1);
                          a[i]:=memo1.Lines[i];
                      end;
setlength(b,length(a));
 
 
 
 // основной цикл
 for I := 0 to length(a)-1 do  begin //-----
 s:=AnsiUpperCase(a[i]); st:='';
// цикл поиска в строке
x:=0;
for j:=1 to length(s) do begin
              if not(s[j] in r) then st:=st+s[j] else
                                                  begin
                                                  // если слово начинается на гласную букву
                                                  if st[1] in g then inc(x);
                                                  st:='';
                                                  end;
                         end;
            // добавляем в массив результат
            b[i]:=x;
                  end;//----------
//здесь выводим результат, например в listbox
 for I :=0 to  length(b)-1 do listbox1.Items.Add(inttostr(b[i]));
end;