Переписать строки из файла f в файл g, добавляя после каждой строки, начинающейся с буквы 'a' строку '++++++++++'

Program Pr_2(variant6);
Uses FormsABC;
var
  c1: openfiledialog;
  c2: savefiledialog;
  b1,b2,b3:button;
  f,g:text;
  r1:array[1..64] of string;
  d1: listbox;
  
procedure one;
var
i:integer:=0;
begin
  c1 := new OpenFileDialog();
  if c1.ShowDialog() = Dialogresult.OK then
  begin
    assign(f, c1.FileName);
    reset(f);
    d1.items.clear();
    while not eof(f) do
    begin
      inc(i);
      readln(f, r1[i]);
      d1.Items.Add(r1[i])
    end;
   //close(f)
  end
end;
 
 
procedure two;
var
  i: integer;
  e1:char;
begin
  c2 := new SaveFileDialog();
  if c2.ShowDialog() = dialogresult.OK then
  begin
    assign(g, c2.FileName);
    
    rewrite(g);
     while not eof(F) do
      inc(i);
     if r1[1]='a' then write(g, r1[i]+'++++++');
    close(g);
    close(f);
end;
end;
 
 
procedure ex;
begin
  mainform.Close
end;
 
procedure main;
begin
  mainform.CenterOnScreen;
  mainform.SetSize(500, 500);
  b1 := new Button('Выбрать рабочий фаил'); 
  emptyspace(50);
  d1 := new ListBox();
  linebreak;
  b3:=new Button('Произвести перезапись');
  linebreak;
  b2:=new Button('Выход');
  b1.Click += one;
  b2.Click +=ex;
  b3.Click+= two;
end;
 
begin
main
end.