Что не так с кодом?

#include <vcl.h>
#pragma hdrstop
// підключимо математичні бібліотеки
#include <math.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
 
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
// Глобальні параметри
const int n=4;
double a[5][5];
double x[5];
// Підпрограма обчислення елементів матриці
 
void elem_matr(  )
 {    int i,j;
         for (i=0; i<=n; i++)
         for (j=0; j<=n; j++)
            a[i][j]=sin(i+1)+log(pow(j+1,3));
}
// Підпрограма обчислення вектора сум квадратів елементів рядків
 
  void elem_vectora (  )
  {int i,j;
       for (i=0; i<=n; i++)
         {
         x[i]=0;
          for (j=0; j<=n; j++)
          x[i]+=pow(a[i][j],2);
         }
  }
   
 // Підпрограма-функція обчислення скалярної величини G
     double fun_G(  )
          { int i,k; float s,p;
             s=0;
             for (i=0; i<=n; i++)
                {p=1;
                     for (k=0; k<=i; k++)
                          p*=x[k];
                    s+=pow((x[i]),4)-p;
                  }
             return pow(fabs(s),1./4);
          }
 
// Підпрограмма кнопки " Обчислення матриці"
void __fastcall TForm1::Button1Click(TObject *Sender)
  {
    int i,j;
//виклик підпрограми обчислення елементів  матриці
    elem_matr(  );
    for (i=0; i<=n; i++)
 
//заголовки рядків
    StringGrid1->Cells[0][i+1]=IntToStr(i)+" -й рядок";
    for (j=0; j<=n; j++)
//заголовки стовпчиків
    StringGrid1->Cells[j+1][0]=IntToStr(j)+" -й стовпчик";
//виведення матриці на  форму
     for (i=0; i<=n; i++)
     for (j=0; j<=n; j++)
     StringGrid1->Cells[j+1][i+1]=FormatFloat("0.000" , a[i][j]);
     }
 
// Підпрограмма кнопки " Обчислення вектора"
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{ int i,j;
//виклик підпрограми для вектора
      fun_G(  );
// виведення елементів вектора сум в StringGrid
     for (j=0; j<=n; j++)
       {
        StringGrid2->Cells[0][j]=IntToStr(j)+" -й елемент ";
        StringGrid2->Cells[1][j]=FormatFloat("0.00",x[j]);
        }   
}
 
// Підпрограма кнопки "Обчислення G"
void __fastcall TForm1::Button3Click(TObject *Sender)
{   int i; double G; 
//виклик підпрограми-функції обчислення скаляра G
 G=fun_G(  );
//виведення значення G на форму
 Edit1->Text=FormatFloat("0.000",G); 
 }
 
// Підпрограма кнопки " Очистити форму"
void __fastcall TForm1::Button4Click(TObject *Sender)
          { int i,j;
            for (i=0; i<=n; i++)
           for (j=0; j<=n; j++)
             StringGrid1->Cells[j+1][i+1] =" ";
            for (i=0; i<=n; i++)
             StringGrid2->Cells[1][i+1] =" ";
             Edit1->Text=" ";
    }
 
// Підпрограма кнопки " Вихід"
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{  
Close( );  
}