Файлы в Си

[lusia7]

Подскажите,пожалуйста, где здесь ошибка? Условие:Дан файл F,компоненты которого являются целыми числами. Никакая из компонент файла не равна нулю. Файл F содержит столько же отрицательных чисел, сколько положительных. Используя вспомогательный файл H, записать компоненты файла F в файл G так, чтобы в файле G не было двух соседних чисел с одним знаком.
Ошибок не выдает, в результате выводит create file. Что не так?

#include <stdio.h>
#include <conio.h>
#define SIZE 5 
 
int main()
{
int i,n;
FILE*F;
FILE*G;
FILE*H;
 
printf("create file\n");
F=fopen("fileF.dat","w");
int c[10]={-8,10,3,5,-1,-9,7,-4,6,-5};
for(i=0;i<2*SIZE;i++)
    fprintf(F,"%d",c[i]);
fclose(F);  
  
 
 
F=fopen("fileF.dat","r");
H=fopen("fileH.dat","w");
while(!feof(F))
{   
     fscanf(F,"%d",&n);
     if(n>0) 
         fprintf(H,"%d\n",n);
}
fclose(H);
fclose(F);
 
 
 
 
F=fopen("fileF.dat","r");
G=fopen("fileG.dat","w");
H=fopen("fileH.dat","w");
while(!feof(F) )
{   
     fscanf(F,"%d",&n);
     if(n<0) 
     {
         fprintf(G,"%d\n",n);
         fscanf(H,"%d",&n);
         fprintf(G,"%d\n",n);
    }
}
 
fclose(H);
fclose(G);
fclose(F);
_getch();
return 0;
 
}