Процедура Опции

[rekrut]

Дана запись, потом вводятся компоненты и записываются в файл, надо сделать процедуру которая открывает файл и находит страну производителя, продукции которой больше всего в магазине:

Unit MODUL;
Interface
type magazin=record
     name,cont:string; {название товара и страна производитель (cont)}
     price:integer;   {цена товара}
     wyear:integer; {гарантия (лет)}
     End;{magazin}
     Procedure con;
Var
    f:file of magazin;
    frm:magazin;
Implementation
Procedure con;   {нахождение страны, товаров из которой больше всего}
Var i,max:integer;
Begin
     Assign(f,'D:\db.dat');
     reset(f);
      max:=1;
     for i:=1 to filesize(f) do
         read(f,frm);
         begin
              if max<frm.kod then max:=frm.kod;
         end;
     reset(f);
     for i:=1 to filesize(f) do
     begin
          read(f,frm);
          if frm.kod>=max then writeln('товара больше всего из ',frm.cont,');
     end;
     close(f);
end;
End. {Unit}

В самой процедуре не знаю как сделать поиск или как определить что товара больше всего из тако то страны . Помогите пожалста!!!

Сообщение отредактировано: rekrut - 4.04.2007 21:42