Про фирму

[Dem6]

Вот такое мне задали:
Разработка программного модуля для вычисления суммы прибылей и убытков фирмы в течение десяти лет, выведения баланса.
А вот как я это реализовал:

program kyrsova;
uses crt;
type Firma_rec=record
     name:string[20];
     form:string[10];
     god:integer;
     poc:array[1..10] of integer;
     end;
var
   firma_f  :file of Firma_rec;
   Firma    :firma_rec;
   ch       :CHAR;
   z        :integer;
  summ,t      :integer;
{--------------------------Продедуры-}
procedure creat_file_firma;
begin
 {$I-}
  assign(firma_f,'firma.txt');
  reset(firma_f);
  if Ioresult<>0 then
                     begin
                      rewrite(firma_f);
                      if Ioresult<>0 then
                       write('Ошибка!!!');
                     end;
 {$I+}
end;
{------------------------------------}
procedure vvod;
begin
rewrite(firma_f);
 writeln('Введите информацию о форме');
 with firma do
  begin
   write('Название фирмы:'); readln(name);
   writeln('Форма собствености: ');
   writeln('1 - Частная');
   writeln('2 - Государственная');
   writeln('3 - Коллективная');
   ch:=readkey;
   case ch of
        '1':form:='Частаная';
        '2':form:='Государственая';
        '3':form:='Колективная'
   end;
   end;
   write(firma_f,firma);
   z:=0;
   repeat
   with firma do begin
   inc(z);
   writeln('| Год |','| Показатель ');
   write(  '|',z,'|');readln(poc[z]);
   poc[z]:=t;
   summ:=t+summ;
   write(firma_f,firma);
   end;
   until (z=10);
   writeln(summ);
 close(firma_f);
end;
{------------------------------------}
procedure vuvod;
begin
 reset(firma_f);
 summ:=0;
 while not eof(firma_f) do begin
 read(firma_f,firma);
 writeln(firma.name,' | ',firma.form,'|',firma.poc[z]);
  end;
  close(firma_f);
 end;
{------------------------------------}
begin
clrscr;
creat_file_firma;
vvod;
vuvod;
readkey;
end.

Для начала мне нужно что бы все записывало в файл.
Но вот тут загвоздка, у меня почему-то не записывает переменную firma.poc[z] (это количество денег которые заработала фирма за одни год ), в дальнейшем не эта переменная понадобится что бы находить, минимум и максимум, а также общее количество.
Буду очень благодарен если поможете решить эту , не легкую проблему для меня.