Удалить из файла первую отрицательную компоненту

Program lab_10;
uses
  crt;
var
  f: file of integer;
  ineg,neg,a,n,i:integer;
begin
  clrscr;
  ineg:=-1;
  assign (f, 'File1');
  rewrite(f);
  writeln ('Vvedite chislo elementov faila.');
  readln (n);
  writeln ('Vvedite elementy fajla');
  for i:= 1 to n do
    begin
      readln (a);
      write (f,a);
    end;
  clrscr;
  writeln('Soderzanie ishodnogo fajla:');
  reset (f);
  for i:=0 to filesize(f)-1 do
    begin
      read (f,a);
      write(a,' ');
    end;
  reset (f);
  for i:=0 to filesize(f)-1 do
    begin
      read (f,a);
      if a<0 then
        begin
          neg:=a;
          ineg:=i;
          break;
        end;
    end;
  writeln;
  writeln ('1 otrizatelny element= ', neg,' nomer=',ineg+1);
  if ineg<0 then
    begin
      writeln('Net otrizatelnix');
      readln;
      exit;
    end;
  if ineg=filesize(f)-1 then
    begin
      seek(f,filesize(f)-1);
      truncate(f);
    end
  else
    begin
      for i:=ineg+1 to filesize(f)-1 do
        begin
          seek(f,i);
          read(f,a);
          seek(f,i-1);
          write(f,a);
        end;
      seek(f,filesize(f)-1);
      truncate(f);
    end;
  seek(f,0);
  writeln('Udalenie otr:');
  while not Eof(f) do
    begin
      read (f,a);
      write(a,' ');
    end;
  close (f);
  readln;
end.