Работа с файлами

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
type
  TForm1 = class(TForm)
    g1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    g2: TStringGrid;
    Button3: TButton;
    OpenDialog1: TOpenDialog;
    Memo1: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button4: TButton;
    SaveDialog1: TSaveDialog;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  Const m=2; n=3;
  Type bagag=record
  name:shortstring;
  kol:integer;
  ves: real;
  end;
  Var f:file of bagag;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
Var i,j:integer; //Номерация
begin
For i:=1 to n do
g1.Cells[0,i]:=inttostr(i);
g1.Cells[1,0]:='Багаж';
g1.Cells[2,0]:=' Вес';
g1.Cells[3,0]:='Количество вещей';
For i:=0 to n do
g1.cells[1,i+1]:=' Багаж № '+inttostr(i+1);
 
 
end;
procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;  temp:bagag;//Создание файла
begin
AssignFile(f,'1.dat');
Rewrite(f);
for i:=1 to g1.RowCount-1 do
begin
temp.name:=g1.cells[1,i];
temp.ves:=strtofloat(g1.Cells[2,i]);
temp.kol:=strtoint(g1.Cells[3,i]);
 
write(f,temp);
   end;
CloseFile(f);
  end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin // Загрузка файла
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
Var i,j,k,kol:integer; sum,tmp,obsum:real; temp:bagag;
begin  // обработка файла
AssignFile(f,'1.dat');
reset(f);
kol:=0; sum:=0; obsum:=1; k:=0;   tmp:=1;
While not EOF(f) do
begin
read(f,temp);
 //ищем сумму вещей
sum:=sum+temp.ves;
edit1.Text:=floattostr(sum);
//ищем количество вещей
Kol:=kol+temp.kol;
edit2.Text:=inttostr(kol);
// средний веc одной вещи
obsum:=sum/kol;
edit3.Text:=floattostr(obsum);
tmp:=(temp.ves/temp.kol)-obsum;
// Проверяем на отличен  не более чем на 0,3 к
if tmp<=0.3 then
k:=k+1;
g2.Cells[0,1]:=temp.name;
     end;
CloseFile(f);
    end;
 
procedure TForm1.Button4Click(Sender: TObject);
var i,j:integer;// очишаем результат
begin
for I:=1 to n do
for j:=1 to n do
g2.Cells[0,i]:=' ';
end;
 
end.

    // средний веc одной вещи
    obsum := sum/kol;

procedure TForm1.OkBtnClick(Sender: TObject);
var
  total_kol: Word;
  total_ves: Real;
 
  rec: TBagag;
  f: file of TBagag;
begin  // обработка файла
  AssignFile(f, ExtractFilePath(Application.ExeName) + '1.dat');
  try
    Reset(f);
  except
    MessageBox(Handle, PChar('Нет файла ' + myPath + '1.dat'), nil, MB_ICONERROR);
    Exit; // судя из описания AssignFile надо было бы сделать CloseFile, однако, это приводит к ошибке
          // лучше бы сначала проверить существование файла, хотя и это не избавит от всех возможных ошибок
  end;
 
  total_kol := 0;
  total_ves := 0;
 
  while not EOF(f) do begin
    read(f, rec);
    total_kol := total_kol + rec.kol;
    total_ves := total_ves + rec.ves;
  end;
 
  if total_kol > 0 then
    total_ves := total_ves / total_kol // лучше, конечно, во избежание путаницы, завести дополнительную переменную, но это уж сами
  else
    total_ves := 0;
 
  // if total_ves = 0 then сообщить об ошибке ???
 
  Reset(f);
  while not EOF(f) do begin
    read(f, rec);
    if abs(total_ves - rec.ves / rec.kol) <= 0.3 then begin
      // вывод куда надо
    end;
  end;
 
  CloseFile(f);
end;