Вот кусок исходника:
struct dat
{
int *c,*x,n;
};
....
f=fopen("data.wtf","wb");
int i,tmp;
mas.n=StrToInt(Edit1->Text);
mas.c=new int[mas.n];
mas.x=new int[mas.n];
for(i=0;i<mas.n;i++)
{
mas.c[i]=1;
mas.x[i]=1;
}
fwrite(&mas,sizeof(mas),1,f);
fclose(f);