Error con clase de listas enlazadas.

[Lotux5]

Ahora me da error de segmentación, por favor me puedes decir que tengo mal aqui, lo siento por ser pesado pero estoy estresado porque tengo que entregar el ejercicio dentro de 2 horas.

Código C++:

Lista :: Lista (int nnodos){
    Nodo *sig;
    numnodos=nnodos;    
    for (int i=0; i<nnodos; i++){
        Nodo *ptr = new Nodo;
        ptr->valor = 0;
        ptr->siguiente = sig;
        sig=ptr;
    }
}
 
void Lista :: EscribirLista (void){
    int n = NNodos();
    Nodo *ptr;
    ptr = p;
    TipoBase val;
 
    for (int i=0; i<n; i++){
        cout << "Introduce un valor: ";
        cin >> val;
        ptr->valor=val;
        ptr=ptr->siguiente; 
    }
}