Получить файл G, в который записать сначала положительные, затем отрицательные и, наконец, нулевые компоненты файла

uses crt;
var f,g:file of integer;
    n,a,b,i,k:integer;
begin
clrscr;
randomize;
assign(f,'file1');
rewrite(f);
assign(g,'file2');
rewrite(g);
write('Сколько чисел введсти в файл n=');
readln(n);
for i:=1 to n do
 begin
  a:=random(10)-5;
  write(f,a);
 end;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
 end;
writeln;
close(f);
reset(f);
while not eof(f) do
 begin
  read(f,a);
  if a>0 then write(g,a);
 end;
close(f);
reset(f);
while not eof(f) do
 begin
  read(f,a);
  if a<0 then write(g,a);
 end;
close(f);
reset(f);
while not eof(f) do
 begin
  read(f,a);
  if a=0 then write(g,a);
 end;
close(f);
writeln('Содержание нового файла до изменения:');
reset(g);
while not eof(g) do
 begin
  read(g,a);
  write(a,' ');
 end;
writeln;
close(g);
reset(g);
i:=1;
while i<=filesize(g)-1 do
 begin
  seek(g,i-1);
  read(g,a);
  seek(g,i);
  read(g,b);
  if((a>0)and(b<0))or((a<0)and(b=0)) then
   begin
    a:=a+100;
    b:=b+100;
    seek(g,i-1);
    write(g,a);
    seek(g,i);
    write(g,b);
    i:=i+2;
   end
  else i:=i+1;
 end;
close(g);
writeln('Содержание нового файла после изменения:');
reset(g);
while not eof(g) do
 begin
  read(g,a);
  write(a,' ');
 end;
close(g);
readln
end.