не могу разобратся, что-то не так с сохранением в файл(VS 2010)

[avis07]

помогите пожалуйста, вроде все работает кроме бинарного сохранения в файл

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();

если нужно весь проект прилагается.
И если можна формирование файла отчета, представляющего обычный текстовый файл (txt), в котором указывается: - текущая дата, - отображается содержимое, соответствующее активным записям, - в конце размещается отметка о наличии или отсутствии в файле удаленных записей и об их количестве,