Не работает сохранение в бинарный файл

TPop*data,*tmp; 
        FILE*Txt;
        int  fh=0;
        int deln=0;
        CString S;
        if(savegood==-1){MessageBox(_T("Оберіть режим збереження."),_T("Інформація"),MB_OK|MB_ICONINFORMATION);return;}
        F=_tfopen(Sfilename,_T("wb"));
        if(!F){MessageBox(_T("Файл не відкритий!"),_T("Помилка!"),MB_OK|MB_ICONSTOP);return;}
        if(savegood){
                data=population;
                        while(data&&data->next){
                                if(data->next->deleted[0]){
                                        tmp=data->next;
                                        data->next=tmp->next;
                                        delete tmp;
                                        deln++;
                                }else
                                        data=data->next;
                        }
                if(population)if(population->deleted[0]){
                        data=population;
                        population=population->next;
                        delete data;
                }
        }
        data=population;
//      GetDate
        S.Format(L"%s.txt",Sfilename);
        Txt=fopen(_T(S),_T("wb"));
        while (data){
                if(!savegood||(data->deleted[0]==0))
                        fwrite(data,sizeof(TPop),1,F);
                data=data->next;
        }
        data=new TPop;
        data->popul=-1;
        fwrite(data,sizeof(TPop),1,F);
        delete data;
        fclose(F);
        MessageBox(_T("Успішно збережено."),_T("Інформація"),MB_OK|MB_ICONINFORMATION);
        showlist();

CStdioFile fp;
fp.Open(_T("numbers.dat"), CFile::modeCreate | CFile::modeWrite | CFile::typeBinary);
int num = 200;
fp.Write((const void*)&num, sizeof(int));
fp.Flush();
fp.Close();