Расчет среднего балла по данным, находящимся в StringGrid

for(int i = 1; i <Form4->StringGrid1->RowCount; i++)
  {
   int sum = 0;
     for(int j = 1; j<Form4->StringGrid1->ColCount;j++)
       {
        sum += StrToIntDef(Form4->StringGrid1->Cells[j][1], 0);}
        float k;
{
          k=(sum/7.0);
          Edit1->Text=FloatToStr(k);
 
      if ((k==5.0))
        {StringGrid1->Cells[4][1]="1200";}
        if ((k>=3.9)&&(k<=5.0))
        {StringGrid1->Cells[4][1]="800";}
        if ((k>2.9)&&(k<4))
        {StringGrid1->Cells[4][1]="0";}//;
 
   }}

for (int i=1; i<Form4->StringGrid1->RowCount;i++)
        {
        for (int j=1; j<Form6->StringGrid1->RowCount;j++)
 
                        {
 
                       if (Form4->StringGrid1->Cells[0][i]==Form6->StringGrid1->Cells[0][j])
                                {
                                int n;
                               n=StringGrid1->RowCount-1;
                                StringGrid1->Cells[0][n]=Form6->StringGrid1->Cells[0][j];
                                StringGrid1->Cells[3][n]="600";
                                 StringGrid1->RowCount++;  }
                                  if (Form4->StringGrid1->Cells[0][i]!=Form6->StringGrid1->Cells[0][j])
                                {
                                int n; int k=1;
                               n=StringGrid1->RowCount-1;
                                StringGrid1->Cells[0][n]=Form4->StringGrid1->Cells[0][i];
                                StringGrid1->Cells[3][n]="0";
                                 StringGrid1->RowCount++;  }
 
 
                } }

{ int j=1; int i=1;
                       if (Form4->StringGrid1->Cells[0][j]==Form6->StringGrid1->Cells[0][j])
                                {
                                int n;
                               n=StringGrid1->RowCount-1;
                               StringGrid1->Cells[3][n]="600";
                                 StringGrid1->RowCount++;
                                 j++;i++;  }
                                  if (Form4->StringGrid1->Cells[0][j]!=Form6->StringGrid1->Cells[0][j])
                                {
                                int n;
                               n=StringGrid1->RowCount-1;
                               StringGrid1->Cells[3][n]="0";
                                 StringGrid1->RowCount++;
                                 j++;i++; }
 
 
                } }

void __fastcall TForm7::Button1Click(TObject *Sender)
{
  for (int i=1; i<Form4->StringGrid1->RowCount;i++)
  {
    int n=0;
    StringGrid1->Cells[0][i]=Form4->StringGrid1->Cells[0][i];
    for (int j=1; j<Form6->StringGrid1->RowCount;j++)
      if (StringGrid1->Cells[0][i]==Form6->StringGrid1->Cells[0][j]) n++;
    StringGrid1->Cells[3][i] = n>0 ? "600" : "0" ;
  }
}

  if (n>0) StringGrid1->Cells[3][i] = "600";
 else      StringGrid1->Cells[3][i] = "0";

  for (int i=1; i<Form4->StringGrid1->RowCount;i++)
  {
    StringGrid1->Cells[0][i]=Form4->StringGrid1->Cells[0][i];
    StringGrid1->Cells[3][i] = 0 > Form6->StringGrid1->Cols[0]->IndexOf(
       StringGrid1->Cells[0][i]) ? "0" : "600" ; 
  }