Получить новый файл, компоненты которого идут в таком порядке: 5 положительных, 5 отрицательных и т.д.

Program L_8;
uses crt;
var
f,g : file of integer;
x, i, r,n: integer;
t:integer;
 
begin
clrscr;
randomize;
assign(f,'D:\files\1.dat');
assign(g,'D:\files\2.dat');
Rewrite (f);
Rewrite(g);
writeln('Первый файл: ');
      for i := 1 to 40 do
      begin
           if ((i>=1) and (i<=10)) or ((i>=20) and (i<=30)) then r:=0;
           if ((i>=11) and (i<=20)) or ((i>=31) and (i<=40)) then r:=100;
           x:=random(100)-r;
           write(x:4);
           if i mod 10 = 0 then writeln();
           Write(f, x);
      end;
i:=1;
reset(f);
      while not(Eof(f)) do
      begin
      if i=1 then
      begin
           repeat
            read(f, t);
            write(g,t);
           until i<=5;
 
           n:=i;
           end
           else
           begin
           if i=n+1 then
           write(g,t);
          end;
      end;
 
  reset(g);
writeln('Второй файл: ');
 while not(Eof(g)) do
      begin
 
      read (g,t);
      write (t:4);
      end;
      end;
 
Close(g);
Close(f);
end.

const
  add:array[1..4]of integer=(0,2,1,3);
var
  f,g:file of integer;
  i,j,z,x,n:integer;
begin
  randomize;
  assign(f,'1.int');
  assign(g,'2.int');
  rewrite(f);
  rewrite(g);
  repeat
    write('n=');
    readln(n);
  until n mod 20=0;
  for i:=0 to n-1 do
    begin
      if i div 10 mod 10 mod 2<>0 then
        x:=-(random(10)+1)
      else
        x:=random(10)+1;
      write(f,x);
    end;
  writeln('Soderzhimoe pervogo faila posle zapolneniya:');
  seek(f,0);
  for i:=0 to n-1 do
    begin
      read(f,x);
      write(x:3);
    end;
  writeln;
  seek(f,0);
  i:=0;
  while not eof(f) do
    begin
      for j:=1 to 4 do
        begin
          seek(f,5*(4*i+add[j]));
          for z:=1 to 5 do
            begin
              read(f,x);
              write(g,x);
            end;
        end;
      inc(i);
    end;
  close(f);
  writeln('Soderzhimoe vtorogo faila posle zapolneniya:');
  seek(g,0);
  for i:=0 to n-1 do
    begin
      read(g,x);
      write(x:3);
    end;
  close(g);
end.