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

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

И получается что действие происходит только над четными элементами файла(начиная с 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;

(ты уже прочел число из файла, значит указатель передвинулся на следующий элемент автоматически. Зачем ты передвигаешь его еще дальше? Ну, и потом... Тебе надо не напечатать все числа, кроме положительных, а удалить положительные из файла. Этого ты даже не пытаешься сделать... А нужно для этого всего навсего завести еще одну переменную LastNeg, которая будет хранить смещение последнего правильного НЕположительного числа в файле. Идешь дальше, как только встретил очередное отрицательное - записал его на эту, сохраненную позицию и увеличил ее на 1... А в самом конце - Truncate(LastNeg), чтобы отсечь все лишнее)

Кстати, у тебя файл не закрывается... Предпоследнего End-а не должно быть...

Добавлено через 1 мин.

Мне кажется,тут лучше использовать тип text.

С чего бы? Чтоб места занимал больше? Или потому что кто-то не умеет работать с ДРУГИМИ файлами? Мне вот вообще кажется, что на другом языке эта задача решается проще, и что? Это не повод советовать автору писать не на Паскале...