Не могу разобраться с загрузкой данных из файлов,и чтоб в дальнейшем с ними мжно было работать как с массивом,не могу разобраться(

void __fastcall TPoisk::Button3Click(TObject *Sender)
{
Memo2->Lines->Clear();
x=StrToInt(Edit3->Text);
for (i=0;i<100;i++)
{
  if (A[i]==x)
  {
  Memo2->Lines->Append(IntToStr(i));
  }
  if (B[i]==x)
  {
  Memo2->Lines->Append(IntToStr(i));
  }
  if (C[i]==x)
  {
  Memo2->Lines->Append(IntToStr(i));
  }
}
for (i=0;i<100;i++)
{
  if (A[i]==x)
  {
  A[i]=0;
  }
  if (B[i]==x)
  {
  B[i]=0;
  }
  if (C[i]==x)
  {
  C[i]=0;
  }
}
FILE* store = fopen("store.txt", "w+");
for (i = 0; i < 100; ++i)
fprintf(store, "%d: %d", i, A[i]);
fclose(store);
FILE* store1 = fopen("store1.txt", "w+");
for (i = 0; i < 100; ++i)
fprintf(store1, "%d: %d", i, B[i]);
fclose(store1);
FILE* store2 = fopen("store2.txt", "w+");
for (i = 0; i < 100; ++i)
fprintf(store2, "%d: %d", i, C[i]);
fclose(store2);
}
//---------------------------------------------------------------------------
 
 
void __fastcall TPoisk::Button1Click(TObject *Sender)
{
i=StrToInt(Edit1->Text);
x=StrToInt(Edit2->Text);
{
if (A[i]!=0,B[i]!=0)
    C[i]=x;
    else
     if (A[i]!=0)
      B[i]=x;
         else
         A[i]=x;
 
}
}
//---------------------------------------------------------------------------
void __fastcall TPoisk::Button2Click(TObject *Sender)
{
{
Memo1->Lines->Clear();
for (i=0;i<100;i++)
{
Memo1->Lines->Append(IntToStr(i)+"        "+IntToStr(A[i])+"        "+IntToStr(B[i])+"        "+IntToStr(C[i]));
}
}
}
//---------------------------------------------------------------------------
void __fastcall TPoisk::Button4Click(TObject *Sender)
{
x=StrToInt(Edit4->Text);
for (i=0;i<100;i++)
{
  if (A[i]==x)
  {
  A[i]=0;
  }
  if (B[i]==x)
  {
  B[i]=0;
  }
  if (C[i]==x)
  {
  C[i]=0;
  }
}
}