Зацикливание при динамическим заполнении стека

#define _CRT_SECURE_NO_WARNINGS
#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
#include "stack.h"
 
 
int main() {
    stack *head;
    int x, h;
    head= NULL;
    printf("vvedite stack");
    printf("\n");
    while ((_kbhit() == 0) && (_getch() != 27)) {
        scanf("%d", &x);
        head = iinput(x, head);
        printf("tekushee sostoyanie stacka:");
        act(head);
        printf("\n");
    }
    printf("okon4en vvod stacka");
    printf("\n");
    while ((_kbhit() == 0) && (_getch() != 27)) {
        printf("\n");
        printf("vvedite 4islo");
        printf("\n");
        scanf("%d", &h);
        if (find(h, head)) printf("prinadlejit");
        else printf("ne prinadlejit");
        printf("\n");
    }
    cclear(head);
    _getch();
}

#ifndef STACK_H
 
#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
 
struct list {
    int z;
    list *next;
};
typedef list stack;
 
void cclear(stack *head) {
    head = NULL;
}
 
bool check(stack *head) { //проверка, пуст ли стек
    if (head == NULL) return true; else return false;
}
 
stack *iinput(int x, stack *head) { //ввод элемента в стек
    stack *s;
    s = new list;
    s->z = x;
    s->next = head;
    head = s;
    return head;
}
 
int gget(stack *head) {
    stack *g;
    int x;
    x = head->z;
    g = head->next;
    head = NULL;
    head = g;
    return x;
}
 
bool find(int h, stack *head) { //поиск элемента в стеке
    int x; int c = 0;
    stack *s;
    s = NULL;
    while (!check(head)) {
        x = gget(head);
        s = iinput(x, s);
        if (x == h) {
            c = 1;
            break;
        }
    }
    while (!check(s)) {
        x = gget(s);
        head = iinput(x, head);
    }
    if (c == 1) return true;
    else return false;
}
 
void act(stack *head) { //вывод текущего состояния стека
    int x;
    stack *s;
    s = NULL;
    while (!check(head)) {
        x = gget(head);
        printf("%d", x);
        s = iinput(x, s);
    }
    while (!check(s)) {
        x = gget(s);
        head = iinput(x, head);
    }
}
 
#endif