[Asinkrit]

Я же тебе уже давал код, там всего пару строк изменить надо было)

Код:

var
  F:File of Integer;
  x:Integer;
begin
  AssignFile(F, 'filename.txt'); 
  Reset(F);
  while not eof(F) do
    begin
    Read(F, x);
    if (x < 0) then
      begin
      Seek(F, FilePos(F)-1);
      Write(F, 0);
      end;
    end;
  CloseFile(F);
end;
...