паскаль. удаление чисел из типизированного файла.

[SOWAA]

паскаль.помогите пожалуйста решить.
Создан типизированный файл, содержащий целые числа.
нужно удалить эти числа,но я к сожалению не знаю как.
я их просто умножила на минус один.

 
var
  f: file of integer;
  i, n, m, q, s, k, j: integer;
  x, y: integer;
  w: string;

begin
  write('Введите кол-во элементов: ');readln(n);
  Assign(f, 'in.dat');Rewrite(f);
  for i := 1 to n do
  begin
    write('Введите  элемент: ');
    readln(m);
    write(f, m);
  end;
  Close(f);
  writeln('Файл создан');
  write('Введите  элемент x: ');
  readln(x);
  write('Введите  элемент y: ');
  readln(y);
  readln;
    //=========== вторая часть.===================
  begin
    Assign(f, 'in.dat');Reset(f);
    i := 0; s := 0;
    writeln('Исходный файл');
    
    while not Eof(f) do
    begin
      read(f, m);
      write(m, ' ');
    end;
    writeln;
    Reset(f);
    
    while not Eof(f) do 
    begin
      read(f, m);
      
      if (m >= x) and (m <= y) then  
      begin
        Seek(f, i);
        write(f, m * (-1));  s := s + m; inc(k);
      end;
      inc(i);
    end;
    Reset(f);
    writeln('Полученный файл');  
    while not Eof(f) do
    begin
      read(f, m);
      write(m, ' ');
    end;
    writeln('сумма', s);writeln('количество', k);
    readln;
  end;
end.

[BDA]

Попробуйте:

var
  f: file of integer;
  i, n, m, a, b, s, k: integer;

begin
  Assign(f, 'in.dat');
  Rewrite(f);
  write('Введите  количество элементов: ');
  readln(n);
  for i := 1 to n do
  begin
    write('Введите ', i, ' элемент: ');
    readln(m);
    write(f, m);
  end;
  writeln('Файл создан');
  write('Введите нижнюю границу: ');
  readln(a);
  write('Введите верхнюю границу: ');
  readln(b);
  writeln('Исходный файл:');
  Reset(f);
  while not Eof(f) do
  begin
    read(f, m);
    write(m, ' ');
  end;
  writeln;
  i := 0;
  k := 0;
  n := 0;
  s := 0;
  Reset(f);
  while not Eof(f) do
  begin
    read(f, m);
    if (m >= a) and (m <= b) then
    begin
      inc(s, m);
      inc(n);
    end
    else if (i <> k) then
    begin
      Seek(f, k);
      inc(k);
      write(f, m);
      Seek(f, i + 1);
    end
    else
      inc(k);
    inc(i);
  end;
  Seek(f, k);
  truncate(f);
  Reset(f);
  writeln('Полученный файл:');
  while not Eof(f) do
  begin
    read(f, m);
    write(m, ' ');
  end;
  writeln;
  writeln('сумма: ', s);
  writeln('количество: ', n);
  Close(f);
  readln;
end.

UPD
Пожалуйста. Потестируйте хорошенько.

[SOWAA]

круто,спасибо большое