Создать файл с полями: название магазина, месяц, объем продаж за месяц

uses crt;
const mesyac:array[1..12] of string[10]=('январь','февраль','март','апель',
       'май','июнь','июль','август','сентябрь','октябрь','ноябрь','декабрь');
type
magazin=record
        naz:string[20];
        mes:string[10];
        prd:word;
        end;
tfile=file of magazin;
var m:magazin;
    f:tfile;
    i,mx,k,imx:word;
    sm:longint;
    nz:string[20];
    c:char;
begin
clrscr;
assign(f,'magazin');
rewrite(f);
writeln('Введите данные в файл, окончание ввода Esc');
i:=0;
repeat
i:=i+1;
writeln('Запись ',i);
with m do
 begin
  write(' название магазина: ');readln(naz);
  repeat
  write(' Месяц (1-12)');
  readln(k);
  until k in [1..12];
  mes:=mesyac[k];
  write(' Объем продаж: ');readln(prd);
  write(f,m);
 end;
c:=readkey;
until c=#27;
clrscr;
write('Введите название магазина:');
readln(nz);
k:=0;
reset(f);
while not eof(f) do
 begin
  read(f,m);
  if m.naz=nz then k:=k+1;
 end;
writeln('Количество записей о магазине ',nz,' =',k);
close(f);
mx:=0;imx:=1;
for i:=1 to 12 do
 begin
  reset(f);
  sm:=0;
  while not eof(f) do
   begin
    read(f,m);
    if m.mes=mesyac[i] then sm:=sm+m.prd;
    if sm>mx then
     begin
      mx:=sm;
      imx:=i;
     end;
   end;
  close(f);
 end;
write('Месяц максимальных объем продаж - ',mesyac[imx]);
readln
end.