Дан текстовый файл, в котором числа положительные и отрицательные. Программа должна записать положительные числа в один файл, а отрицательные числа в другой файл — Pascal(Паскаль)

Program files;
uses crt;
var f,f1,f2:file of integer;
    n,i,a,j,k:integer;
begin
clrscr;
randomize;
assign(f,'file1');
rewrite(f);
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);
assign(f1,'filepol.txt');
rewrite(f1);
assign(f2,'fileotr.txt');
rewrite(f2);
      while not eof(f) do
      begin
      read(f,a);
      if a>=0 then write(f1,a) else write(f2,a);
      write(a,' ');
      end;
 
end.