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

[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.

[volvo]

После того как записал в файл все нужные тебе числа, лучше сделать так:

  reset(f);
  seek(f,filesize(f));

  X := 0; write(f, X);		{ <--- Пишем 0 в самый конец файла, увеличивая его размер }
  seek(f, filepos(f) - 2);	{ <--- Устанавливаем указатель на число, с которого начнем перемещение }
					{ Это как раз то самое число, которое было последним в файле, }
					{ пока туда не записали 0 }

  {
	А дальше - все просто: читаем число, при этом указатель сам перемещается
	на следующую позицию в файле, туда прочитанное число и пишем, указатель
	опять перемещается еще дальше, а мы его перебрасываем на 3 (!!!) позиции
	назад, чтобы на следующем круге начать перемещение на одну позицию раньше.

	Повторять, пока не дойдем до нужной позиции
  }
  while filepos(f) >= N do begin
    read(f, x); write(f, x);
    seek(f, filepos(f) - 3);
  end;

  seek(f, N); write(f, M);	{ Все, пишем туда куда надо введенное число }
  { И выводишь файл на печать для проверки }