Метод Гаусса

int A[7][7]={0,1,0,1,1,0,0,
             1,0,0,1,0,1,1,
             1,1,1,0,0,0,0,
             16,-31,0,33,0,0,0,
             0,31,37,0,40,0,0,
             0,0,0,33,40,22,0,
             0,0,0,0,0,22,-71},x[7]={0,0,0,6,24,16,5};
int n=7;
float R;
int l,i,j,k;
 for (i = 0; i <= n; i++)
 for (j = 0; j <= n; j++)
 StringGrid2->Cells[j][i]=FloatToStr(A[i][j]);
 
 for (i = 0; i <= n; i++)
 StringGrid3->Cells[0][i]=FloatToStr(x[i]);
 
 
 
 
 
        for(i=0; i<n; i++)
        {
 
            R=A[i][i];
            x[i]=x[i]/R; // на этом месте выдает ошибку 
            for(j=i; j<n; j++)
                A[i][j]=A[i][j]/R;
 
 
 
        for(k=i+1; k<n; k++)
        {
        R=A[k][i];
        x[k]=x[k]-R*x[i];
            for(j=0; j<n; j++)
            A[k][j]=A[k][j]-R*A[i][j];
 
        }
          }
 
                 
 
 
                { for(i=n-2; i>=0; i--)
                   for(j=i+1; j<n; j++)
                      x[i]=x[i]-A[i][j]*x[j];
                                          }
  for (i = 0; i <= n; i++)
 for (j = 0; j <= n; j++)
 StringGrid1->Cells[0][i]=IntToStr(x[i]);