Записать в новый файл все элементы данного в обратном порядке и найти сумму всех отрицательных компонентов - Turbo Pascal

var f, g: file of double;
    i: longword;
    n: longint;
    x, s: double;
 
begin
  randomize;
  repeat
    write('File size = ');
    readln(n)
  until n > 0;
  assign(f, 'src.dat');
  rewrite(f);
  writeln('Source file:');
  for i := 1 to n do
    begin
      x := -99 + 199 * random;
      write(x:8:3);
      write(f, x)
    end;
  writeln;
  assign(g, 'dst.dat');
  rewrite(g);
  s := 0;
  writeln('Destination file:');
  for i := filesize(f) - 1 downto 0 do
    begin
      seek(f, i);
      read(f, x);
      if x < 0 then s := s + x;
      write(x:8:3);
      write(g, x)
    end;
  writeln;
  if s = 0
    then write('Negative elements not found.')
    else write('Sum of negative elements = ', s:0:3);
  close(f);
  close(g);
  readln
end.