работа с файлами Builder C++ 6

[rest]

Нужно считать из файла массив структур
Упорядочить его и вывести в Memo1

Вот мой код что не правильно, он сортирует но добавляет один не понятный элемент с именем из случайных символов а остальные поля вообще не заполнены

struct TPerson{
       char Fio[30];
       int otd;
       char dol[20];
       char nrab[10];
       int stazh;
       }Person;
int size=sizeof(TPerson);
FILE *FPerson;
AnsiString File_Person;

//---------ф-ция вывода 1 записи----------------------------------------
void Out(TPerson p,TMemo *Memo1)
 {
  Memo1->Lines->Add(AnsiString(p.Fio));
  Memo1->Lines->Add("№ отдела: "+IntToStr(p.otd));
  Memo1->Lines->Add("Должность: "+AnsiString(p.dol));
  Memo1->Lines->Add("Дата начала работы:"+AnsiString(p.nrab));
  Memo1->Lines->Add("Стаж: "+IntToStr(p.stazh));
  Memo1->Lines->Add("*******************************");
 }
//------------------------------------------------------------------------

int i,k=0;
  FPerson=fopen(File_Person.c_str(),"rb");
  TPerson st, *m, buf;
  int Df=fileno(FPerson);
  int len=filelength(Df);
  int kol=len/size;
  m=new TPerson[kol];
  for(i=0;i<kol;i++)
    fread((m+i),size,1,FPerson);
  fclose(FPerson);
  Memo1->Clear();
  Memo1->Lines->Add("Сортированые сведения");
  for(i=0;i<kol;i++){
    for(int j=i+1;j<=kol;j++){
    if(m[j].stazh<m[i].stazh){
      buf=m[i];
      m[i]=m[j];
      m[j]=buf;
      k++;
    }}}
    for(i=0;i<kol;i++) Out(m[i],Memo1);
  if(k==0)Memo1->Lines->Add("Нет студентов с баллами ниже 4");
//  delete []m;

[rest]

кто-нибудь разбирается в файлах
в Builder?

[Svetlag]

Покажите, как записываете в бинарный файл.