Файлы.Удаление отрицательного числа, В файле целых чисел, если перед положительным числом стоит отрицательн Опции

[BSS]

Помогите пожалуйста решить задачу:
В файле целых чисел, если перед положительным числом стоит отрицательное, то удалить это отрицательное число

[BSS]

ну как реализовать проверку и удаление?

program p11;
uses crt;
var
   f: file of integer;
   s:string;
   x,n,i:integer;
Begin
  writeln('input name of file:');
  readln(s);
  Assign (f,s);
  rewrite(f);
  writeln('input amount of numbers:');
  readln(n);
  for i:=1 to n do
	begin
	  readln(x);
	  write(f,x);
	end;
  close(f);
  reset(f);
  while not eof(f) do
   begin
	  read(f,x);
	  if x<0
	  //
	  //
   end;
end. 

Сообщение отредактировано: BSS - 19.04.2010 3:45