Типизированый файл данных

Type    myz_instr=record
pib: string[35];
type_instr: string[21];
garantiya,bonys,znygka: string[40];
cina: real;
nomer_nakl:string[12];
data:TDateTime;
nazva_instr: string[18];
end;
 
var f: file of myz_instr; //файл записи
z: myz_instr; //запись
namefile: string;   //имя файла
nbtn2: integer;

Type    myz_instr=record
      pib: string[35];
      type_instr: string[21];
      garantiya,bonys,znygka: string[40];
      cina: integer;
      nomer_nakl:string[12];
      data:TDateTime;
      nazva_instr: string[18];
      end;
 
var  f: file of myz_instr;  //файл з
     z: myz_instr;          //запись
     namefile: string;  //имяфайла
     nbtn2: integer;
 
 
Ход моей жалкой мысли
procedure TForm1.Button7Click(Sender: TObject);
var cmin,cmax:integer;
    ind:integer;
    max,min:integer;
begin
 Button10.Visible:=True;
 Button10.Enabled:=True;
 reset(f);  //Відкрити файл
 seek(f,0);     //Перевести покажчик на початок файла
 while not Eof(f) do
    if z.cina>=cmax then
    cmax:=z.cina else
    if z.cina<=cmin then
    cmin:=z.cina;
 
 
end;