Записи Опции

[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('naimenovanie ');readln(z.naim);
       if z.naim<>'' then
       begin
         write('artikul');readln(z.art);
         write('stoimost ');readln(z.stst);
         write('koli4estvo ');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('na sklade v bolwem koli4estve: ');
 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('obuvi dannoi kategorii bolwe vsego:');
 while not Eof(f) do
   begin
    read(f,z);
    if z.kol=max then writeln(z.art);
    end;
    readln
    end.
  Close(f).

.

Надо чтобы она была как эта программа:задание такое:Создать файл "Детский мир",включающий информацию:наименование игрушки,возрастная группа,стоимоть.Определить,какие игрушки подходят детям заданного возраста.Получить список игрушек,не превышающих заданную стоимость.
Программа здесь такая:

uses crt;
type
 item = record
   title: string[30];{nazwanie}
   price: real;{цена}
   age_1,age_2: byte;{vozrast}
 end;
var
 i,n:byte;
 maxp:real;
 info: array[1 .. 255] of item;
begin
clrscr;
{Ввод данных производится с клавы}
write('vvedite koli4estvo tovarov ');
readln(n);
for i:=1 to n do begin
 with info[i] do begin
   writeln('vvedite dannye dlya ',i,'-i igruwki :');
   write('nazwanie ');
   readln(title);
   write('cena ');
   readln(price);
   if price>maxp then maxp:=price;
   write('vozrastnye granicy(4erez probel): ');
   readln(age_1,age_2);
 end;
end;
clrscr;
writeln('cena samoi dorogoi igrushki ',maxp:4:2);
write('vvedite veli4inu,ograni4iwajuwuyu stoimost ');
readln(maxp);
for i:=1 to n do begin
 with info[i] do begin
   if price<maxp then begin
     writeln('nazwanie: ',title);
     writeln('cena: ',price:4:2);
     writeln('vozrastnye granicy: ot ',age_1,' do ',age_2);
     writeln('na*mite klavishu o vyvode informacii o sleduyuwei igrushke ');
     readkey;
   end;
 end;
end;
writeln('igrushek s cenoi menwei ukazannoi vami bolwe net');
writeln('sleduyuwie igrushki podxodyat detyam v vozraste ot 4 do 10 let');
for i:=1 to n do begin
 with info[i] do begin
   if (age_1>3) and (age_2<11) then writeln(title);
 end;
end;
readln;
end.

.
Заранее благодарна