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;