Затираются записи в файле, как исправить?

procedure vvod(num:integer; a1:array [1..10000] of gazeta);      {процедура добавления записей в файл}
  begin
   rewrite(f);
   clrscr;
   writeln ('                          Ввод записей');
   writeln;
   write ('                      Введите колличество записей ');
   writeln;
   writeln('                              >>>  '); readln (num);
     for i:=1 to num do
       begin
       with a do
       begin
         clrscr;
         writeln;
         writeln ('                          Запись ',i);
         write ('                     Введите название газеты   : ');
         readln (a1[i].nazvanie);
         write ('                     Введите тираж газеты   : ');
         readln (a1[i].tirag);
         write ('                     Введите год издания газеты   : ');
         readln (a1[i].god_izdania);
         write(f,a1[i]);
       end;
       end;
   close(f);
  shapka;
  vivod(a1);
  end;

write(f,a1[i]);

Write(f,(a1[i].nazvanie, ' ', a1[i].tirag,' ', a1[i].god_izdania));
writeln(f);

procedure dobavlenie(a1:array [1..10000] of gazeta);        {ïðîöåäóðà äîáàâëåíèÿ çàïèñè â ôàéë}
  var p:string;
   begin
    clrscr;
    reset(f);
    i:=1;
     while not eof(f) do begin
       read(f,a1[i]);inc(i);end;
        writeln('       введите название газеты   : ');readln(a1[i].nazvanie);
        writeln('       введите тираж газеты   : ');readln(a1[i].tirag);
        writeln('       введите год издания газеты   : ');readln(a1[i].god_izdania);
        num:=i;
        write(f,a1[i]);
        vivod(a1);
      reset(f);
      close(f);
      end;