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

uses crt;
var f,g,h:file of integer;
    n,i,j,a,b:integer;
begin
randomize;
assign(f,'fileF');
rewrite(f);
write('Сколько чисел записать в исходный файл n=');
read(n);
for i:=1 to n do
 begin
  a:=-5+random(20);
  write(f,a);
 end;
assign(g,'fileG');
rewrite(g);
assign(h,'fileH');
rewrite(h);
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
  if(a>0)and(a mod 2=0) then //если четное положительное
   begin
    if filesize(g)=0 then write(g,a)//если еще не записано, пишем
    else  //иначе
     begin
      for j:=filesize(g) downto 1 do //сдвигаем все числа в файле на 1 вниз
       begin
        seek(g,j-1);
        read(g,b);
        seek(g,j);
        write(g,b)
       end;
      seek(g,0);//запишем в начало
      write(g,a);
     end
   end
  else if a<0 then write(h,a)//если отрицательное
 end;
close(f);
writeln;
reset(g);
if filesize(g)=0 then writeln('Положительных четных нет, файл G пустой')
else
 begin
  writeln('Положительные четные наоборот');
  while not eof(g) do
   begin
    read(g,a);
    write(a,' ')
   end;
  writeln;
 end;
close(g);
reset(h);
if filesize(h)=0 then writeln('Отрицательных чисел нет, файл H пустой')
else
 begin
  writeln('Отрицательные числа');
  while not eof(h) do
   begin
    read(h,a);
    write(a,' ')
   end;
  writeln;
 end;
close(h);
end.