нужна помощь с текстовой таблицей.

//вывод данных в таблицу и подсчет по условию
procedure TForm1.Button2Click(Sender: TObject);
var i,k:byte;
begin
assignfile(f,'benz.txt');
reset(f);
k:=0;
for i:=1 to n do
  begin
    StringGrid1.RowCount:=StringGrid1.RowCount+1; //добавляем строчку
    read(f,sp[i]);
    StringGrid1.Cells[0,i]:=IntToStr(i);
    StringGrid1.Cells[1,i]:=sp[i].fam;
    StringGrid1.Cells[4,i]:=sp[i].spc;
    StringGrid1.Cells[3,i]:=IntToStr(sp[i].shf.god);
    StringGrid1.Cells[2,i]:=IntToStr(sp[i].shf.nom);
    StringGrid1.Cells[5,i]:=FloatToStrF(sp[i].srb,ffFixed,5,2);
    end;
closefile(f);
 end;
 
//2ая таблица
 
procedure TForm1.BitBtn3Click(Sender: TObject);
var i,k:byte;
begin
assignfile(f1,'usl.txt');
reset(f1);
k:=0;
for i:=1 to n do
  begin
    StringGrid2.RowCount:=StringGrid2.RowCount+1; //добавляем строчку
    read(f1,sp1[i]);
    StringGrid2.Cells[0,i]:=IntToStr(i);
    StringGrid2.Cells[1,i]:=sp1[i].fam1;
    StringGrid2.Cells[4,i]:=sp1[i].spc1;
    StringGrid2.Cells[3,i]:=IntToStr(sp1[i].shf1.god);
    StringGrid2.Cells[2,i]:=IntToStr(sp1[i].shf1.nom);
    StringGrid2.Cells[5,i]:=FloatToStrF(sp1[i].srb1,ffFixed,5,2);
end;
closefile(f1);
end;

AssignFile(f,'benz.txt');
reset(f);
AssignFile(f3,'benztmp.txt');
reset(f3);
while not EoF(f) do
    Begin
      Read....