Ввести файл вещественных чисел F. Удалить из файла предпоследнюю компоненту, если она отрицательна

var
  f: file of real;
  sum, x: real;
  i, n: integer;
 
begin
  assign(f, 'file1.dat');
  rewrite(f);
  write('Введите количество чисел в файле: ');
  readln(n);
  writeln('Введите в файл числа:');
  for i := 1 to n do
  begin
    readln(x);
    write(f, x);
  end;
  writeln('Содержание исходного файла F:');
  reset(f);
  while not eof(f) do
  begin
    read(f, x);
    write(x, ' ');
  end;
  close(f);
  writeln;
  
  reset(f);
  n := FileSize(f) - 1;
  if n = 0 then
  begin
    writeln('Файл состоит из одного элемента!');
    halt;
  end;
  
  reset(f);
  seek(f, n - 1);
  read(f, x);
  writeln('Предпоследняя компонента: ', x);
  if x < 0 then
  begin
    for i := n to filesize(f) - 1 do
    begin
      seek(f, i);
      read(f, x);
      seek(f, i - 1);
      write(f, x);
    end;
    seek(f, filesize(f) - 1);
    truncate(f);
    close(f);
  end
  else
  begin
    reset(f);
    seek(f, filesize(f) - 1);
    read(f, x);
    sum := sum + x;
    seek(f, 0);
    read(f, x);
    sum := sum + x;
    seek(f, filesize(f));
    write(f, sum);
  end;
  
  
  writeln('Содержание нового файла F:');
  reset(f);
  while not eof(f) do
  begin
    read(f, x);
    write(x, ' ');
  end;
  close(f);
  
end.

  else if x>0 then begin
    Seek(f,0); Read(f,sum);
    Seek(f,FileSize(f)-1); Read(f,x);
    sum:=sum+x; Write(f,sum);
  end;