Переписать из файла F в файл G суммы первого и второго числа, третьего и четвертого, и т.д.

var
  f, g: file of integer;
  m, n, i, k: integer;
 
begin
  write('Введите кол-во компонент: ');
  readln(n);
  writeln('Исходный файл:');
  Assign(f, 'in.dat');
  Rewrite(f);
  for i := 1 to n do
  begin
    m := -n div 2 + random(n);
    write(m:4);
    write(f, m);
  end;
  writeln;
  Reset(f);
  Assign(g, 'out.dat');
  Rewrite(g);
  while not Eof(f) do
  begin
    read(f, m);
    read(f, k);
    write(g, m + k);
  end;
  writeln('Новый файл:');
  Reset(g);
  while not Eof(g) do
  begin
    read(g, m);
    write(m:4);
  end;
  Close(f);
  Close(g);
end.

function ToInt(self: array of string): array of integer; extensionmethod;
begin
  result := new integer[self.Length];
  for var i := 0 to self.Length - 1 do
    result[i] := self[i].ToInteger;
end;
 
begin
  WriteAllText('F.txt', ReadAllLines('G.txt').ToInt.Sum.ToString);
end.

function ToInt(self: array of string): array of integer; extensionmethod;
begin
  result := new integer[self.Length];
  for var i := 0 to self.Length - 1 do
    result[i] := self[i].ToInteger;
end;
 
function ToStr(self: array of integer): array of string; extensionmethod;
begin
  result := new string[self.Length];
  for var i := 0 to self.Length - 1 do
    result[i] := self[i].ToString;
end;
 
begin
  WriteAllLines('G.txt', ArrRandom(10).ToStr);
  WriteAllText('F.txt', ReadAllLines('G.txt').ToInt.Sum.ToString);
end.