Изменить файл, удалить все отрицацельные числа

[Amid1990]

Есть задание
Дан файл целых чисел удалить из него все отрицательные числа.
И есть код программы:

program d6;
var
k:real;
fIn,fOut:text;
begin
Assign(fIn,'text.txt');
Reset(fIn);
Assign(fOut,'text1.txt');
Rewrite(fOut);
while Not Eof(fIn) do begin
   Read(fIn, K);
   if K>=0 then Write(fOut, K);
end;
Close(fIn);
Close(fOut);
end.

Как сделать что бы эта программа записывала результат не в новый файл а в уже существующий?

[eoln]

Сообщение от Amid1990

Дан файл целых чисел

Совершенно неверный подход, это не текстовый, а типизированный файл. И работать с ним надо иначе.

var
  i, j, k, m: integer;
  f: file of integer;
begin
  writeln('Make bin file');
  assign(f, 'file.bin');
  rewrite(f);
  for i := 1 to 15 do begin
    k := random(5)-2;
    write(k:3);
    write(f, k)
  end;
  close(f);

  reset(f);
  i := 0;
  j := 0;
  while not eof(f) do begin
    seek(f, i); read(f, k); inc(i);
    if k >= 0 then begin
      seek(f, j); write(f, k); inc(j)
    end
  end;
  seek(f, j);
  truncate(f);
  close(f);

  writeln;
  writeln('Output rebuild bin file');
  reset(f);
  while not eof(f) do begin
    read(f, k);
    write(k:3);
  end;
  readln
end.