нужна идея по поводу взаимодействия файлов!!

type Tstudent = record
type Tstudent = record
   id:string[12];
  surname:string[25];
  adress:string[50];
  phone:string[9];
  lesson:string[30];
  mat1:extended;
  mat2:extended;
// .......
  xim1:extended;
  xim2:extended;
end;
 
 
//...
AssignFile(F2,'File2.dat');
reset(F2);
for i:=1 to FileSize(f2) do
read(F2,f);
//....
write(F02,f);
CloseFile(F02);

procedure TEditing.BitBtn2Click(Sender: TObject);
var search,i,j,jk:Integer;
a1,a2,b1,b2,c1,c2,d1,d2,e1,e2,f1,f2,g1,g2,h1,h2,j1,j2:string;
begin
abc:=MainWindow.StringGrid1.row;
ik:=abc;
AssignFIle(F02,'File2.dat');
reset(F02);
setlength(mas2,FileSize(F02)+1);
if Stringgrid1.Cells[1,1]<>'' then
 
if comboboxex1.ItemIndex=0 then
 begin
  if RadioButton1.checked  then
      begin
    a1:=(Edit5.Text);
    StringGrid2.Cells[2,1]:=a1;
       end;
   if RadioButton2.checked then
      begin
    a2:=Edit5.Text;
    StringGrid2.Cells[1,1]:=a2;
       end;
    end;
  //......
  if comboboxex1.ItemIndex=8 then
    begin
        if RadioButton1.checked  then
      begin
    j1:=Edit5.Text;
    StringGrid2.Cells[2,9]:=j1;
       end;
   if RadioButton2.checked then
      begin
    j2:=Edit5.Text;
    StringGrid2.Cells[1,9]:=j2;
       end;
    end;
 
 
 
 if (Stringgrid2.cells[1,1]<>'') or (Stringgrid2.cells[2,9]<>'')  then
begin
    mas2[ik].id:=mas1[abc].id;
   mas2[ik].mat1:=StrToFloat(StringGrid2.Cells[2,1]);
    mas2[ik].mat2:=StrToFloat(StringGrid2.Cells[1,1]);
    //....
    mas2[ik].xim2:=StrToFloat(StringGrid2.Cells[1,8]);
    end;
 
for I := 0 to FileSize(F02)-1 do
begin
if i=ik  then
begin
    f.id:=mas2[abc].id;
    f.mat1:=mas2[ik].mat1;
    f.mat2:=mas2[ik].mat2;
   //......
    f.xim2:=mas2[ik].xim2;
    write(F02,f);
    end;
   end;
   CloseFile(F02);
   end;

a:=StringGrid1.row;
 AssignFile(F02,'File2.dat');
     reset(F02);
     Seek(F02,0);
    for i:=0 to FileSize(F02)-1 do
    begin
    read(F02,f);
      for j:=0 to mainWindow.StringGrid1.RowCount -1  do
      begin
       if (j=a) and (f.id=MainWindow.Stringgrid1.cells[1,a]) then
      begin
      StringGrid2.Cells[1,1]:=FloatToStr(f.mat1);
      StringGrid2.Cells[2,1]:=FloatToStr(f.mat2);
       //....
      StringGrid2.Cells[1,9]:=FloatToStr(f.xim1);
      StringGrid2.Cells[2,9]:= FloatToStr(f.xim2);
      if j>a then
      begin
      abort;
      end;
      end;

Seek(F02,I);

Seek(F,FileSize(F));