Записи, про "Обувь" Опции

[KATYSHA]

Нужно создать файл "Обувь",включающий информацию:наименование,артикул(с указанием:м-мужская,ж-женская,д-детская),стоимость,кол-во пар на складе.Определить,какая обувь есть на складе в большем кол-ве.Обуви какой категории больше всего.

[KATYSHA]

Я написала вот такую программку,но она не работает.Не подскажите ошибки?

Program DemoRecord;
Uses crt;
Type zap=record
     naim,art:string[20];
     stst,kol:integer;
    end;
Var z:zap;
    f:file of zap;
    n,max:integer;
    s:string;
Begin
 clrscr;
 assign(f,'C:/TP/BIN/K');
 {$I-}
 reset(f);
 {$I+};
 if IOResult<>0 then
 begin
  writeln('File ne dostupen! Sozdayu novii!');
  rewrite(f);reset(f);
 end;

 if FileSize(f)=0 then
   begin
     writeln('File pust!');
     repeat
       write('наименование ');readln(z.naim);
       if z.naim<>'' then
       begin
         write('артикул');readln(z.art);
         write('стоимость ');readln(z.stst);
         write('количество ');readln(z.kol);
         write(f,z);
       end;
    until z.naim='';
   end;
 writeln;

 seek(f,0);
 while not eof(f) do
  begin
   read(f,z);
   writeln(z.naim,'  ',z.art,'  ',z.stst,'  ',z.kol);
  end;
 writeln;

 seek(f,0);
 while not Eof(f) do
  begin
    read(f,z);
    if z.kol>max then max:=z.kol;
  end;
 seek(f,0);
 writeln('на складе в большем количестве: ');
 while not Eof(f) do
  begin
   read(f,z);
   if z.kol=max then writeln(z.naim,' ',z.kol,' ',z.art,' ',z.stst);
  end;
 writeln;

 seek(f,0);
 writeln('обуви данной категории больше всего:');
 while not Eof(f) do
   begin
    read(f,z);
    if z.kol=max then writeln(z.art);
    end;
    readln
    end.