Работа с файлами... Опции

[Akella]

Короче задание такое: Создать файл, заполненный целочисленными яислами в диапозоне [-100;100]. Удалить из файла все положительные числа!

У меня короче получаеться вот что: ввожу например 5, т.е. это генирируется 5 чисел. И получается что действие происходит только над четными элементами файла(начиная с 0-го). Например есть числа -10 -11 10 10 -15, то в результате останеться -10 и -15, а -11 куда-то пропадает... помогите... что я только не перепробывал сделать - не получается!

program  _7_14;    
uses crt;    
var    f : file of integer;     
i,n,a : integer;       
begin    clrscr;    
randomize;    
assign(f,'myfile.dat');    
rewrite(f);    
writeln('n=');    
read(n);     
for i:=1 to n do begin      
a:=random(200)-100;       
write(f,a);     
end;     
seek(f,0);       
while not eof(f) do begin         
read(f,a);         
write(a,' ');       
end;       
seek(f,0);         
while not eof(f) do begin  	  
read(f,a);  	   
if a>0 then seek(f,filepos(f)+1)  	      
else begin  		
write(f,a);  		
writeln(a,' ');    	      
end;  	   
end;           
end.   close(f);  
end.