Помогите быстрее,14 задание

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger(N=);
  var f,g:file of integer;
  ReWrite(f,f.bin);
  Randomize;
  for var i:=1 to n do Write(f,Random(101)-50); // [-50;50]
  Seek(f,0);
  ReWrite(g,g.bin);
  var a,b:integer;
  Writeln(Содержимое файла f);
  Read(f,a); Write(a, );
  while not f.Eof do begin
    Read(f,b);
    Write(b, );
    Write(g,a*b);
    a:=b
    end;
  f.Close;
  Writeln;
  Writeln(Содержимое файла g);
  Seek(g,0);
  while not g.Eof do begin Read(g,a); Write(a, ) end;
  g.Close
end.

Пример
N= 15
Содержимое файла f
43 14 -8 30 -50 -21 -15 -19 -19 -32 22 23 -36 19 -43
Содержимое файла g
602 -112 -240 -1500 1050 315 285 361 608 -704 506 -828 -684 -817