Вывод ответа в программе

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include<fcntl.h>
#include<io.h>
#pragma hdrstop
 
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
extern int nmax;
extern float x[100];
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::FormCreate(TObject *Sender)
{
  SaveDialog1->InitialDir=GetCurrentDir();
  SG1->RowCount=nmax+1;
   for(int i=1;i<=nmax;i++)
   SG1->Cells[0][i]="X"+IntToStr(i)+"=";
     for (int i=1;i<=nmax;i++)
       SG1->Cells[1][i]=FloatToStr(x[i]);
 
 
}
//---------------------------------------------------------------------------
void __fastcall TForm3::BitBtn1Click(TObject *Sender)
{
  Form3->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
TStringList *s;
 s= new TStringList;
  SaveDialog1->Execute();
   for(int i=1;i<=nmax;i++)
      s->Add(SG1->Cells[0][i]+SG1->Cells[1][i]);//SG1->Rows[i]->Text);
 
   s->SaveToFile(SaveDialog1->FileName);
   delete s;
}

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include<io.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include <fcntl.h>
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int nmax=5;
float a[100][101],x[100];
int  f[100];
double det=1;
//---------------------
void process(int n)
 {
   int l,k,i,j;
  float t,q;
  for (i=1;i<=n;i++)
   {
    do
     {
      t=a[i][i];
      if (t==0)
       for(int y=1;y<=n+1;y++)
        {
         q=a[i][y];
         a[i][y]=a[n][y];
         a[n][y]=q;
        }
      }while(t==0);
    for (j=1;j<=n+1;j++)
     a[i][j]=a[i][j]/t;
    for (l=i+1;l<=n;l++)
     {
      q=a[l][i];
      for (j=i;j<=n+1;j++)
       {
        a[l][j]=a[l][j]-q*a[i][j];
       }
      }
   }
  x[n]=a[n][n+1];
  for (i=n-1;i>=1;i--)
   {
    x[i]=a[i][n+1];
    for (j=i+1;j<=n;j++)
     x[i]=x[i]-a[i][j]*x[j];
   }
    det=1;
    for (int i=1;i>=n;i++) det*=a[i][i];
}