Стеки, найти ошибку

/*Создать список из чисел. Создать новый список,
записав в него сначала все отрицательные элементы из исходного списка, затем все положительные.*/
#include<stdio.h>
#include<conio.h>
 
 
struct stack  //описание стека stack
{int inf;  stack *next;};
 
stack *init_stack() //инициализация стека
{return NULL;}
 
void push(stack *&s,int item) //добавление элемента в стек. Передача по ссылке!!
 
{
stack *r;
r=new stack;
r->inf=item;r->next=s;s=r;
}
 
int pop(stack *&s) //выбор верхнего элемента из стека
{
stack *r=s;
int i=r->inf;s=r->next;
delete r;
return i;
}
 
int peek(stack *s) //просмотр верхнего элемента стека
{
return s->inf;
}
 
int empty_stack(stack *s) //определение пустоты стека
{return(s)?0:1;}
 
 
int main()
 
{FILE *h=fopen("c:\\Prog\\input.txt","r");
FILE *g=fopen("c:\\Prog\\output.txt","a");
int i,p;
stack *head=init_stack(); //инициализация стека
 
while (!feof(h))
{
fscanf(h,"%d",&i); //читаем целое число из файла в переменную i
push(head,i); //записываем значение i в стек
}
 
while (!empty_stack(head)) //пока стек не пуст
 
{i=pop(head);
if (i<0) fprintf(g,"\n%d",i); }
 
while (!empty_stack(head)) //пока стек не пуст
 
{i=pop(head);
if (i==0) fprintf(g,"\n%d",i); }
 
while (!empty_stack(head)) //пока стек не пуст
 
{i=pop(head);
if (i>=0) fprintf(g,"\n%d",i); }
fcloseall(); //завершаем работу с файлами
return 0;
}