Error de ejecucion

Hola,
EL programa consiste en:
primero te pedira datos:
Nombre, y edad,
creara una lista encadenada, en funcion de que le digas
si o no.
Despues lo volcara a un archivo, "Agenda.dat", que se
creara automaticamente.
Pero despues no visualiza nada, y da error de ejecucion.

No se si quiera, si el programa carga los datos
introducidos al fichero qeu se crea...

Ayudazme, porfavor...

Codigo:

//////////////////////////////////////////////////////////
////////////
////// INCLUDES DEL
PROGRAMA ///////////
//////////////////////////////////////////////////////////
////////////

#include <stdio.h>
#include <conio.h>
#include <malloc.h>

//////////////////////////////////////////////////////////
////////////
//////
TYPEDEF
//////////
//////////////////////////////////////////////////////////
////////////


typedef struct nodo * PUNT_NODO;
typedef char * PUNT_CHAR;
typedef FILE * FICHERO;

typedef struct
{
char nombre [20];
short edad;
}FICHA;

typedef struct nodo
{
FICHA info;
PUNT_NODO enlace;
}NODO;

//////////////////////////////////////////////////////////
////////////
////// PROTOTIPOS DE FUNCIONES
//////////
//////////////////////////////////////////////////////////
////////////

PUNT_NODO vuelca_fichero_a_lista (PUNT_CHAR nomfich);
PUNT_NODO crea_nuevo (FICHA elemento);
//void visualiza_info_lista (PUNT_NODO cabeza);
PUNT_NODO crea_lista (void);
FICHA pide_datos (void);
// Funcion de Salida
PUNT_NODO crea_nodo (PUNT_NODO cabeza, FICHA elemento);
void vuelca_lista_a_fichero (PUNT_NODO cabeza, PUNT_CHAR
nomfich);


/*********************************************************
************************/
////////// FUNCION
MAIN
///////////////
/*********************************************************
************************/

void main (void)
{
PUNT_NODO cabeza = (PUNT_NODO) NULL;
char nomfich [] = ("Agenda.dat");

vuelca_fichero_a_lista (nomfich);
//visualiza_info_lista (cabeza);
crea_lista ();
vuelca_lista_a_fichero (cabeza, nomfich);
}

/*********************************************************
************************/
///////// RESTO DE
FUNCIONES
///////////////
/*********************************************************
************************/

PUNT_NODO vuelca_fichero_a_lista (PUNT_CHAR nomfich)
{
FICHERO punt_fich;
PUNT_NODO cabeza, nuevo;
FICHA elemento;

cabeza = (PUNT_NODO) NULL;

if ((punt_fich = fopen (nomfich, "rb")) !=
(FICHERO) NULL)
{
while (fread(&elemento, sizeof(FICHA), 1,
punt_fich))
{
nuevo = crea_nuevo (elemento);
}
fclose (punt_fich);
}
return (cabeza);
}

/*********************************************************
***************************/

PUNT_NODO crea_nuevo (FICHA elemento)
{
PUNT_NODO nuevo;

nuevo = (PUNT_NODO)malloc(sizeof(NODO));

nuevo -> info = elemento;
nuevo ->enlace = (PUNT_NODO) NULL;

return (nuevo);

}

/*********************************************************
*************************

void visualiza_info_lista (PUNT_NODO cabeza)
{
PUNT_NODO recorre;

recorre = cabeza;

if (cabeza = (PUNT_NODO) NULL)
printf ("La lista esta vacia.");
else
{
puts (recorre -> info.nombre);
printf (" tiene %hd
años.", recorre ->info.edad);

recorre = cabeza ->enlace;
}
}






/*********************************************************
***************************/

PUNT_NODO crea_lista (void)
{
FICHA elemento;
PUNT_NODO nuevo, cabeza = (PUNT_NODO) NULL;

nuevo = crea_nodo (cabeza, elemento);

return (nuevo);
}

/*********************************************************
*************/

FICHA pide_datos (void)
{
FICHA nuevo;

printf ("Nombre: ");
fflush (stdin);
gets (nuevo.nombre);
printf ("Edad: ");
scanf ("%hd", &nuevo.edad);

return (nuevo);

}

/*******************************************/

PUNT_NODO crea_nodo (PUNT_NODO cabeza, FICHA elemento)
{
PUNT_NODO nuevo;
char respuesta;

do
{

nuevo = (PUNT_NODO)malloc(sizeof(NODO));

elemento = pide_datos ();

nuevo -> info = elemento;
nuevo -> enlace = cabeza;
cabeza = nuevo;
free (nuevo);

printf ("\tMas elementos? (S/N)");

}
while ((respuesta = getch ()) == 's' || respuesta
== 'S');

return (cabeza);

}

/*********************************************************
*/

void vuelca_lista_a_fichero (PUNT_NODO cabeza, PUNT_CHAR
nomfich)
{
FICHERO punt_fich;
PUNT_NODO viejo;

if((punt_fich = fopen (nomfich, "wb")) !=
(FICHERO) NULL);
{
while (cabeza != (PUNT_NODO) NULL)
{
fwrite(&cabeza -> info, sizeof
(FICHA), 1, punt_fich);

viejo = cabeza;
cabeza = cabeza -> enlace;
free (viejo);
}
fclose (punt_fich);
}
}
.