Сортировка записей файле

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <stdio.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
typedef struct{
 AnsiString FIO;
 AnsiString adres;
 int number;
 AnsiString date;
 }TMagazine;
 TMagazine saver[9];
 int zap=0;
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Text="";
Edit2->Text="";
Edit3->Text="";
Memo1->Clear();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
saver[zap].number=StrToInt(Edit1->Text);
saver[zap].FIO=Edit2->Text;
saver[zap].adres=Edit3->Text;
 
 
Memo1->Lines->Add(IntToStr(saver[zap].number));
Memo1->Lines->Add(AnsiString(saver[zap].FIO));
Memo1->Lines->Add(AnsiString(saver[zap].adres));
Memo1->Lines->Add(AnsiString(saver[zap].date));
Memo1->Lines->Add("");
zap++;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
if(SaveDialog1->Execute())
{
AnsiString FileNameS = SaveDialog1->FileName;
Memo1->Lines->SaveToFile(FileNameS+".txt");
ShowMessage("Исходные данные были сохранены");
Memo1->Lines->Clear();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if(OpenDialog1->Execute())
{
AnsiString FileName = OpenDialog1->FileName;
Memo1->Lines->LoadFromFile(FileName);
}
}
//---------------------------------------------------------------------------
 
 
 
 
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
Memo1->Clear();
for(int i = 0; i<zap;i++)
{
 if(saver[i].FIO == saver[i+1].FIO && saver[i].date == saver[i+1].date)
 {
   Memo1->Lines->Add(IntToStr(saver[i+1].number));
   Memo1->Lines->Add(saver[i+1].FIO);
   Memo1->Lines->Add(saver[i+1].adres);
   Memo1->Lines->Add(saver[i+1].date);
   Memo1->Lines->Add("");
   i++;
 }
 else
 {
  Memo1->Lines->Add(" номер цеха № - " + IntToStr(saver[i].number));
  Memo1->Lines->Add("наименование:" + saver[i].FIO);
  Memo1->Lines->Add("количество:" + saver[i].adres);
   Memo1->Lines->Add("");
  }
}
}
//--