Программа, которая считывает английский текст из файла и выводит его на экран, заменив каждую первую букву слов, начинающихся с гласной буквы, на прописную — Delphi(Делфи)

var
  Form1: TForm1;
  small: array [0 .. 5] of char = (
    'a',
    'e',
    'i',
    'o',
    'y',
    'u'
  );
  big: array [0 .. 5] of char = (
    'A',
    'E',
    'I',
    'O',
    'Y',
    'U'
  );

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  i, j: integer;
  p: boolean;
begin
  memo1.lines.loadfromfile(имя файла);
  p := true;
  for i := 0 to memo1.lines.Count - 1 do
    s := s + memo1.lines[i];
  for i := 1 to length(s) do
  begin
    if p then
    begin
      for j := 0 to high(small) do
        if s[i] = small[j] then
        begin
          s[i] := big[j];
          break;
        end;
    end;
    if s[i] = ' ' then
      p := true;
    if s[i] <> ' ' then
      p := false;
  end;
  memo1.Text := s;
end;