Не работает метод удаления элементов двухсвязного списка

#include <ctime>
#include <iostream>
using namespace std;
 
struct list
{
    int field; // поле данных
    struct list* next; // указатель на следующий элемент
    struct list* prev; // указатель на предыдущий элемент
};
list *create(list *lst) {
    list* tmp;
    tmp = new list; //новый узел
    tmp->field = 1 + rand() % 100;
    tmp->next = NULL;
    tmp->prev = lst;
    lst->next = tmp;
    return tmp;
}
list* init()  {
    list* lst;
    lst = new list;
    //srand(time(0));
    lst->field = 1 + rand() % 100;
    lst->next = NULL; // указатель на следующий узел
    lst->prev = NULL; // указатель на предыдущий узел
    return(lst);
}
void show(list *first) {
    list* tmp = first;
    while (tmp) {
        cout << tmp->field << ' ';
        tmp = tmp->next;
    }
}
list* chek(list* first) {
    list* prev, * next; 
    if (first->field % 2 == 0) {
        prev = first->prev;
        next = first->next;
        if (prev) prev->next = first->next;
        if (next) next->prev = first->prev;
        delete first;
        return next;
    }
    else return first->next;
}
int main()
{
    setlocale(LC_ALL, "RU");
    list* lst, *lstTop; int m; cout << "Введите кол узлов: "; cin >> m;
    lst = init(); lstTop = lst;
    for (int i = 1; i < m; i++) lst = create(lst);
    show(lstTop);
    while (lstTop)  lstTop = chek(lstTop); 
    show(lstTop);
}

while (lstTop)  lstTop = chek(lstTop);

list* chek(list *&head, list* first) 
{
    list* prev, *next;
    if (first->field % 2 == 0) {
        
        prev = first->prev;
        next = first->next;
        if (prev) prev->next = first->next;
        if (next) next->prev = first->prev;
        if (head == first)
            head = next;
        
        delete first;
        return next;
    }
    else return first->next;
}

for (auto *p = lstTop; p; )  
    p = chek(lstTop, p);