Вычисление среднего значение элементов матрицы

void __fastcall TForm1::Button1Click(TObject *Sender)
{
float average=0;
for (int j=0;j<StringGrid1->ColCount;j++)
for (int i=0;i<StringGrid1->RowCount;i++)
average+=StrToFloat(StringGrid1->Cells[j][i]);
average/=StrToInt(StringGrid1->ColCount)*StrToInt(StringGrid1->RowCount);
Label1->Caption=FloatToStr(average);
 
 
 
void __fastcall TForm1::StringGrid1SelectCell(TObject*Sender,int ACol,int ARow,bool&CanSelect)
{
StringGrid1->Cells[ACol][ARow]=Edit3->Text;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    float I,J,s=0;
    for(I  = 0; I < StringGrid1->ColCount;I++)
        StringGrid1->Cells[I][0]="Параметр"+FloatToStr(I);
    for(I=0;I<StringGrid1->RowCount;I++)
        StringGrid1->Cells[0][I]= " " + FloatToStr(I);
    for(J=0;J<StringGrid1->RowCount;J++)
        StringGrid1->Cells[J][I]=FloatToStr(I) + ":" + FloatToStr(J);
    for (float I=0;I<=StringGrid1->ColCount;I++)
        for (float J=0;J<=StringGrid1->RowCount;J++)
            s+=StrToFloat(StringGrid1->Cells[I][J]);
    s/=StrToFloat(StringGrid1->ColCount)*StrToFloat(StringGrid1->RowCount);
 
    Label2->Caption=FloatToStr(s);
}

s+=StrToFloat(StringGrid1->Cells[I][J]);

float I,J,s=0;
for(I = 0; I < StringGrid1->ColCount;I++)
StringGrid1->Cells[I][0]="Ïàðàìåòð"+FloatToStr(I);
for(I=0;I<StringGrid1->RowCount;I++)
StringGrid1->Cells[0][I]= " " + FloatToStr(I);
for(J=0;J<StringGrid1->RowCount;J++)
StringGrid1->Cells[J][I]=FloatToStr(I) + ":" + FloatToStr(J);
for (float I=1;I<StringGrid1->ColCount;I++)
for (float J=1;J<StringGrid1->RowCount;J++)
s+=StrToFloat(StringGrid1->Cells[I][J]);
s/=StrToFloat(StringGrid1->ColCount)*StrToFloat(StringGrid1->RowCount);
 
Label2->Caption=FloatToStr(s);

StringGrid1->Cells[0][I]= " " + FloatToStr(I);

void __fastcall TForm1::StringGrid1Click(TObject *Sender)
{
    StringGrid1->RowCount=StrToFloat(Edit1->Text);
    StringGrid1->ColCount=StrToFloat(Edit2->Text);
}

for(J=0;J<StringGrid1->RowCount;J++)
StringGrid1->Cells[J][I]=FloatToStr(I) + ":" + FloatToStr(J);

StringGrid1->Cells[J][I]=FloatToStr(I) + ":" + FloatToStr(J);

for(I=0;I<StringGrid1->RowCount;I++)

StringGrid1->Cells[0][I]= "ЗАЙЦЫ" + FloatToStr(I);