Как удалить из списка все повторные записи? - C++ Builder - Ответ 6211117

TForm1 *Form1;
int kol;
struct TMagazin
{
        int por_nom;
        String FIO;
        String dom_adr;
        double data_uch;
};
TMagazin Magaz[100];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
             kol++;
   Magaz[kol].por_nom=StrToInt(Edit1->Text);
   Magaz[kol].FIO=Edit2->Text;
   Magaz[kol].dom_adr=Edit3->Text;
   Magaz[kol].data_uch=StrToFloat(Edit4->Text);
   Memo1->Lines->Add(StrToInt(Magaz[kol].por_nom)+" "+Magaz[kol].FIO+" "+Magaz[kol].dom_adr+" "+FloatToStr(Magaz[kol].data_uch));
   Edit1->Text="";
   Edit2->Text="";
   Edit3->Text="";
   Edit4->Text="";
 
        int i;
        FILE*fdopen=fopen("Ведомость.text","a");
        for(i=0;i<kol;i++)
        fprintf(fdopen,"%s%d%d%5.2f \n",Magaz[i].por_nom,Magaz[i].FIO,Magaz[i].dom_adr, Magaz[i].data_uch);
        fclose(fdopen);
}
 
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 
   char*ch = new char[255];
 char*sredn = new char[10];
  //int i =0;
  FILE*fdopen =fopen("Ведомость.text","rb");
  while (fscanf(fdopen,"%s%d%d%d%s",ch, &(Magaz[kol].por_nom), &(Magaz[kol].FIO),
                                        &(Magaz[kol].dom_adr),(sredn))!=EOF)
         {
          Magaz[kol].por_nom=StrToInt(Edit1->Text);
          Magaz[kol].FIO=Edit2->Text;
          Magaz[kol].dom_adr=Edit3->Text;
          Magaz[kol].data_uch=StrToFloat(Edit4->Text);
          Memo2->Lines->Add(StrToInt(Magaz[kol].por_nom)+" "+Magaz[kol].FIO+" "+Magaz[kol].dom_adr+" "+FloatToStr(Magaz[kol].data_uch));
                  kol++;
}