Файлы

[ensoleille]

Дан файл целых чисел. Удалить из него все отрицательные числа.

/*Äàí ôàéë öåëûõ ÷èñåë. 
Óäàëèòü èç íåãî âñå îòðèöàòåëüíûå ÷èñëà.*/

#include<stdio.h>
#include<conio.h>
#include<stdlib.h>

void main()
{
	
	FILE *out;

	int *a,i,m,k;

	out=fopen("out.txt","w+");

	if(!(out=fopen("out.txt","w+")))
	{
		printf("FILE NOT OPEN");
		return;

	}
	
	puts("Vvedite kolichestvo elementov - m");
	scanf("%d",&m);
	//fscanf(out,"%d\n",&m);
	fprintf(out,"Kolichestvo elementov -  %d",m);

	a=(int*)malloc(m*sizeof(int));
		for(i=0;i<m;i++)
		{	
			a[i]=rand()%10-1;
			//fscanf(out,"%d\n",a[i]);
			//fclose(out);
		}
		puts("\n");
			for(i=0;i<m;i++)
				{
					printf("% 4d",a[i]);
					fprintf(out,"\n%4d\n",a[i]);
				}
				puts("\n");
	
	for(i=0;i<m;i++)
		{
			if(a[i]<=0)
				k++;
			a[k]=a[i];
			printf("Noviy massiv %d",a[k]);
			fprintf(out,"\nNoviy massiv %d",a[k]);
	}

	fclose(out);
}

суть проблемы вот в чем. массив исходный в файл записывает.но дальше когда переходит к удалению отрицательных,сообщает об ошибке