Не могу определить ошибку - Lazarus - Ответ 10676881

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids,
  StdCtrls, Spin;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Save_B: TButton;
    Load_B: TButton;
    P_E: TEdit;
    I_L: TLabel;
    Z_L: TLabel;
    R_L: TLabel;
    P_L: TLabel;
    Count_SE: TSpinEdit;
    I_SG: TStringGrid;
    Z_SG: TStringGrid;
    R_SG: TStringGrid;
    procedure Count_SEChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Load_BClick(Sender: TObject);
    procedure Save_BClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
type
   TPeople = record
     Name, Family : ShortString;
     Rost, Ves : Double;
   end;
{$R *.lfm}
 
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  I_SG.RowCount:=Count_SE.Value+1;
  I_SG.Cells[0,0]:='Фамилия';
  I_SG.Cells[1,0]:='Имя';
  I_SG.Cells[2,0]:='Рост';
  I_SG.Cells[3,0]:='Вес';
  Z_SG.Cells[0,0]:='Фамилия';
  Z_SG.Cells[1,0]:='Имя';
  Z_SG.Cells[2,0]:='Рост';
  Z_SG.Cells[3,0]:='Вес';
  R_SG.Cells[0,0]:='Фамилия';
  R_SG.Cells[1,0]:='Имя';
  R_SG.Cells[2,0]:='Рост';
  R_SG.Cells[3,0]:='Вес';
end;
 
 
 
procedure TForm1.Save_BClick(Sender: TObject);
var
  people : TPeople;
  f: File;
  i: Integer;
begin
  AssignFile(f,'data.dat');
  Rewrite(f,1);
  for i:=1 to I_SG.RowCount-1 do
  begin
    people.Family:=I_SG.Cells[0,i];
    people.Name:=I_SG.Cells[1,i];
    people.Rost:= StrToFloat(I_SG.Cells[2,i]);
    people.Ves:= StrToFloat(I_SG.Cells[3,i]);
    BlockWrite(f,people.Name,SizeOf(people.Name));
    BlockWrite(f,people.Family,SizeOf(people.Family));
    BlockWrite(f,people.Rost,SizeOf(people.Rost));
    BlockWrite(f,people.Ves,SizeOf(people.Ves));
  end;
  CloseFile(f);
end;
 
procedure TForm1.Load_BClick(Sender: TObject);
var
  people : Array[1..100] of TPeople;
  f : file;
  i, count, j : Integer;
  b : String;
begin
  AssignFile(f,'data.dat');
  Reset(f,1);
  count := 0;
  while not EOF(f) do
begin
  inc(count);
  BlockRead(f,people[count].Name,SizeOf(people[count].Name));
  BlockRead(f,people[count].Family,SizeOf(people[count].Family));
  BlockRead(f,people[count].Rost,SizeOf(people[count].Rost));
  BlockRead(f,people[count].Ves,SizeOf(people[count].Ves));
  end;
  CloseFile(f);
  Z_SG.RowCount:=count+1;
  for i := 1 to count do
  begin
    Z_SG.Cells[1,i]:=people[i].Name;
    Z_SG.Cells[0,i]:=people[i].Family;
    Z_SG.cells[2,i]:=FloatToStr(people[i].Rost);
    Z_SG.cells[3,i]:=FloatToStr(people[i].Ves);
    j:=0;
   b:=P_E.Text;
   if (pos(b,people[i].Name)=1)  then
   if (people[i].Ves = people[i].Rost - 100) then
   begin
     inc(j);
     R_SG.RowCount:=j+1;
     R_SG.Cells[1,i]:=people[i].Name;
     R_SG.Cells[0,i]:=people[i].Family;
     R_SG.Cells[2,i]:=FloatToStr(people[i].Rost);
     R_SG.Cells[3,i]:=FloatToStr(people[i].Ves);
   end;
   end;
   if j = 0 then
   begin
   R_SG.RowCount:=2;
   R_SG.Cells[1,i]:='Заданным';
   R_SG.Cells[0,i]:='Человека по';
   R_SG.Cells[2,i]:='Параметрам';
   R_SG.Cells[3,i]:='Не найдено';
   end;
 
end;
 
procedure TForm1.Count_SEChange(Sender: TObject);
begin
  I_SG.RowCount:=Count_SE.Value+1;
end;
 
end.