Мучаю матрицы

void ReadMinor (StringGrid *a, double *matrix) // Эта функция будет перегонять грид в массив
, но для минора
{
 int row, col;
 for (row=1; row>=0; --row)
 {
  for (col=1; col>=0; --col)
  {
   matrix[col][row]=FloatToStrDef(a.Cell[row][col],0.0);
  }
 }
}

//---------------------------------------------------------------------------
#ifndef Unit34H
#define Unit34H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Buttons.hpp>
#include <Grids.hpp>
//---------------------------------------------------------------------------
class TForm34 : public TForm
{
__published:    // IDE-managed Components
        TLabel *Label1;
        TLabel *Label3;
        TLabel *Label4;
        TLabel *Label5;
        TLabel *Label2;
        TLabel *Label6;
        TLabel *Label7;
        TLabel *Label8;
        TStringGrid *StringGrid1;
        TLabel *Label199;
        TLabel *Label195;
        TLabel *Label200;
        TStringGrid *StringGrid2;
        TBitBtn *BitBtn1;
        TBitBtn *BitBtn2;
        TBitBtn *BitBtn3;
        void __fastcall BitBtn1Click(TObject *Sender);
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall BitBtn2Click(TObject *Sender);
        void __fastcall BitBtn3Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm34(TComponent* Owner);
};
//---------------------------------------------------------------------------
void Invert(double *a, double *inv);
void ReadMatrix (StringGrid *a, double *matrix);
double Det(double *a);
double DetOfMinor(double *a);
double abs(double a);
//---------------------------------------------------------------------------
extern double Epsilon;
extern PACKAGE TForm34 *Form34;
//---------------------------------------------------------------------------
#endif

void Invert(double **a, double **inv);
void ReadMatrix (StringGrid *a, double **matrix);
double Det(double **a);
double DetOfMinor(double **a);

void ReadSystem (StringGrid **a, double *matrix, double *vector, double *x)
{
 int i,j;
 for (j=2; j>=0; --j)
 {
  for (i=2; i>=0; --i)
  {
   matrix[j][i]=a->Cells[i][j];
  }
  vector[j]=a->Cells[3][j];
 }
}
void Gaus(double **a, double *b)
{
 int r1, r2, c, r;
 doubel k, s;
 lastr=a+2;
 for (r1=0; r1<2; ++r1)
 {
  for (r2=r+1; r2<=2; ++r2)
  {
   k=a[r2][r1]/a[r2][r2];
   for (c=2; c>=0; --c)
   {
    a[r2][c]-=a[r1][c]*k;
   }
   b[r2]-=b[r1]*k;
  }
 }
 for (r=2; r>=0; --r)
 {
  s=0.0;
  for (c=2; c>r; --c)
  {
   s+=x[c]*a[r][c];
  }
  x[r]=(b[r]-s)/a[r][r];
 }
}

!=

==

void ReadSystem (StringGrid **a, double *matrix, double *vector, double *x)
{
 int i,j;
 for (j=2; j>=0; --j)
 {
  for (i=2; i>=0; --i)
  {
   matrix[j][i]=StrToFloatDef(a->Cells[i][j], 0.0);
  }
  vector[j]=StrToFloatDef(a->Cells[3][j], 0.0);
 }
}

void ReadSystem (StringGrid *a, StringGrid *b, double *matrix, double *vector, double *x)
{
 int i,j;
 for (j=2; j>=0; --j)
 {
  for (i=2; i>=0; --i)
  {
   matrix[j][i]=StrToFloatDef(a->Cells[i][j], 0.0);
  }
  vector[j]=StrToFloatDef(b->Cells[3][j], 0.0);
 }
}

double a[3][3]; b[3];
void RandomSystem (TMemo *m, TStringGrid *g)
{
 int i,j;
 string s;
 char x[4]="xyz";
 int c;
 for (i=0; i<=2; ++i)
 { 
  for (s="", j=0; j<=2; +9+j)
  {
   c=random(20)-9;
   if (c!=0)
   {
    if ((s!="")&(c>0))
    {
     s+='+';
    }
    s+=IntToStr(c);
    s+='*';
    s+=x[j];
   }
   a[i][j]=c;   
  }
  s+='=';
  c=random(20)-9;
  s+=IntToStr(c);
  m->Lines->Add(s);
  b[i]=c;
 }
 for (i=0; i<=2; ++i)
 {
  g->Cells[0][i]=x[i];
 }
}