Работа со строками и файлом

procedure TForm1.Button1Click(Sender: TObject);
const m=['A','a','E','e','Y','y','U','u','I','i','O','o'];
      a=[#13,#10,#32,#9];
 
var
    s,sg : string; c : char;
    r:boolean;
    i:integer;
begin
  Memo1.Clear;
  s := '';
  r:=true;
 
  If OpenDialog1.Execute then
  Memo1.Lines.LoadFromFile( 'a.txt');
  sg:= Memo1.Text;
  Memo1.Lines.Add('=========Результат================');
  i:=0;
  while i<= Length(sg) do
  begin
    inc(i);
    c:=sg[i];
    if r then
    begin
     if not (c in a) then
     begin
      r:=false;
      s:=c;
     end;
    end
   else
   begin
    if not(c in a) then
     s:=s+c
    else
    begin
     r:=true;
     if (s[1] in m) then
     Memo1.Lines.Add(s)
    end;
   end;
  end;
  if (not r) and (s[1] in m) and (s[Length(s)] in m) then
   Memo1.Lines.Add(s);
end;
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  StrUtils,
  CLasses,
  types;
 
var
    lines: tStrings;
    line, subline: string;
    sublines: TStringDynArray;
    ch: Char;
 
const
    glasnie = ['a','e','y','u','i','o'];
 
begin
  try
    lines := TStringList.Create;
    lines.LoadFromFile('..\..\Project1.dpr');
    for line in lines do
    begin
        sublines := SplitString(line, ' ');
        for subline in sublines do if Length(subline) > 0 then
        begin
            ch := LowerCase(subline[1])[1];
            if CHarInSet(ch, glasnie) then
                Writeln(subline);
        end;
    end;
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

lines.Free