Составить подпрограммы. Работа с файлами.

[rustik24]

Помогите пожалуйста решить задачу)
Записи в массиве текстовый файл, добавление записей в файл, вывод текстового файла на экран.

[domovou]

uses crt;
Type
  bd=record
    fam:string[10];
    den:1..31;
    mes:1..12;
    god:1900..2008;
  end;
Var
  i,n,k:integer;
  tbl:array [1..25] of bd;
  f:file of bd;//типизированный файл записей
Begin
  Clrscr;
  Assign(f, 'c:\1.txt');
  Rewrite(f);
  Writeln('vvedite kol-vo zapisey');
  Readln(n);
  Writeln('vvedite dannie');
  for i:=1 to n do
    begin
      Writeln('zapis nomer',i);
      Write('familia ');Readln(tbl[i].fam);
      Write('data rozdenia ');readln(tbl[i].den,tbl[i].mes,tbl[i].god);
      Write(f,tbl[i]);
    end;
  Close(f);
  Reset(f);
  n:=0;
  while not Eof(f) do
    begin
      inc(n);
      read(f,tbl[n]); //читаем записи из файла в массив
      writeln(tbl[n].fam,' ',tbl[n].den,' ',tbl[n].mes,' ',tbl[n].god);
    end;
  Close(f);
  readln
end.

добавление: открываешь файл через append(); спрашиваешь кол-во
доб элементов и можно просто через запись сразу добавлять в файл