Структура: Сколько надо суммарно затратить на пропитание животных в течении месяца (30 дней)?

uses crt;
type strok=string[20];{создадим тип короткой строки для экономии памяти}
{массив названий зон, чтобы не вводить, всего их в Вики 16}
const zona:array[1..7] of strok=('тундра','тайга','лесостепь','степь',
                                      'пустыня','саванна','тропики');
      fname='data.dat';{имя файла}
type zap=record{тип запись с полями}
         naz:strok;
         zon:strok;
         zat:real;
         end;
var f:file of zap;{типизированный файл записей}
    z:zap;
    n,i,k:integer;
begin
clrscr;
assign(f,fname);
rewrite(f);
write('Сколько животных в зоопарке n=');
readln(n);
writeln('Введите сведения о животных:');
for i:=1 to n do
 begin
  writeln('Животное ',i);
  with z do
   begin
    write('Название: ');readln(naz);
    writeln('Природная зона:');
    writeln('1-тундра 2-тайга 3-лесостепь 4-cтепь 5-пустыня 6-саванна 7-тропики');
    readln(k);
    zon:=zona[k];
    write('Затраты на корм в день: ');readln(zat);
   end;
  write(f,z);
 end;
close(f);
writeln('Данные записаны в файл ',fname);
readln
end.

uses crt;
const fname='data.dat';
type strok=string[20];
     zap=record
         naz:strok;
         zon:strok;
         zat:real;
         end;
     TTmas_z=array[1..1] of zap;{тип элементов массива}
     Tmas_z=^TTmas_z;{ссылка на элемент}
var f:file of zap;
    z:zap;
    a:Tmas_z;
    n,i:integer;
    s:real;
begin
clrscr;
assign(f,fname);
reset(f);
n:=filesize(f);{размер массива}
getmem(a,sizeof(TTmas_z)*n);{выделим память}
writeln('Полный список животных:');
for i:=1 to n do
 begin
  seek(f,i-1);
  read(f,z);
  a^[i]:=z;
  writeln(a^[i].naz,' ',a^[i].zon,' ',a^[i].zat:0:2);
 end;
close(f);
s:=0;
writeln('Животные степной зоны:');
for i:=1 to n do
if a^[i].zon='степь' then
 begin
  writeln(a^[i].naz);
  s:=s+a^[i].zat*30;
 end;
if s=0 then write('Таких животных нет')
else write('Затраты на содержание в месяц=',s:0:2);
FreeMem(a,SizeOf(TTmas_z)*n);{освободим память}
readln
end.