Записать в новый файл сначала положительные, затем отрицательные, затем нулевые компоненты исходного файла

uses crt;
var f,g:file of integer;
    a:integer;
    i:integer;
begin
clrscr;
assign(f,'filef');
rewrite(f);
assign(g,'fileg');
rewrite(g);
writeln('Введите в файл целые числа, окончание ввода 100:');
repeat
readln(a);
write(f,a);
until a=100;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
  if a>0 then write(g,a);
 end;
close(f);
close(g);
writeln;
writeln;
reset(f);
reset(g);
{i:=-1;}
while not eof(f) do
 begin
  read(f,a);
  {i:=i+1;}
  if a<0 then
   begin
    seek(g,filesize(g));
    write(g,a);
   end;
 end;
close(f);
close(g);
reset(f);
reset(g);
while not eof(f) do
 begin
  read(f,a);
  {i:=i+1;}
  if a=0 then
   begin
    seek(g,filesize(g));
    write(g,a);
   end;
 end;
close(f);
close(g);
reset(g);
writeln('Содержание нового файла:');
while not eof(g) do
 begin
  read(g,a);
  write(a,' ');
 end;
close(g);
readln
end.