Записать данные вычисления матрицы, вектора и функции в текстовый файл

#ifndef MyLibH
#define MyLibH
#include <math.h>
#include <stdio.h>
const n=6;
typedef float matr [n][n];
typedef float vekt [n];
int i,j;
FILE *f,*fff;
char dd[100];
char *s=dd;
// подпрограммы
Formul_M (matr a);
elem_vectoramin (matr a, vekt & min);
double Func_tion (matr a, vekt & min);
//---------------------------------------------------------------------------
#endif

matr a; vekt min;  AnsiString st;
 
void __fastcall TForm1::Edit2Change(TObject *Sender)
{
Button1->Enabled=true;
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
st = Edit2->Text;
s=st.c_str();
f=fopen(s,"wt+");
if (f==NULL) {ShowMessage("Невозможно создать и открыть файл");
return;}
fclose(f);
}
 //текст пункта меню " Матрица по формуле"
 
void __fastcall TForm1::Mat_ricClick(TObject *Sender)
{
{ matr a ;
Formul_M(a) ;
char *b="                     Элементы матрицы\n\n";
char d[300];
AnsiString ss,s3;
const  AnsiString s1="     ";        // для выравнивания отрицательных
const  AnsiString s2="     ";     // и положительных значений элементов матрицы
ss="";
if ((f = fopen(s,"at+")) == 0)
{ ShowMessage("Невозможно создать и открыть файл");return;}
fprintf(f,b);
for (i=0;i<n;i++)
{
for (j=0;j<n;j++)
{ SG1->Cells[j+1][i+1]=FormatFloat("0.000",a[i][j]);
if (a[i][j]>=0)s3=s2;
else s3=s1;
ss+="|"+s3+FormatFloat("0.000",a[i][j])+s1;}
ss=ss+"|\n" ;
}
strcpy(d,ss.c_str( ));
fprintf(f,d);
fclose(f);
}}