Записать все отрицательные числа из файла F в файл N, а все положительные в G.

Program F86;
Var f,g,n:text;
     s,:string;
     x,t:integer;
Const
     a='c:\file\F86.txt';
     b='c:\file\G56.txt';
     c='c:\file\N93.txt';
Begin
Assign(f,a);
Reset(f);
Readln(f,s);
Writeln('Числа файла F86:');
Write(s);
While not eof(f) do
Begin
Val(s,x,t);
If x>0 then
Begin
Assign(g,b);
Rewrite(g);
Write(g,x);
End
Else
Assign(n,c);
Rewrite(n);
Write(n,x);
End;
Close(f);
End.

uses
  crt;
var
  i, ch: integer;
  f1, n, g: text;
begin
  clrscr;
  assign(f1, 'input.txt');
  rewrite(f1);
  assign(n, 'otric_ch.txt');
  rewrite(n);
  assign(g, 'pol_ch.txt');
  rewrite(g);
  i:=-20;
  while i<=20 do   // заполняем исходный файл числами
  begin
    if i <> 0 then
      writeln(f1, i); // нуль выводить не будем
    inc(i)  // увеличиваем i на 1
  end;
  close(f1);  // закрываем файл, т.к. курсор стоит в конце файла
  reset(f1);
  while not eof(f1) do
  begin
    readln(f1, ch);
    if ch > 0 then writeln(g, ch) else writeln(n, ch)
  end;
  close(f1); close(n); close(g);
  reset(n); reset(g);
  writeln('Положительные числа:');
  while not eof(g) do
  begin
    readln(g, ch);
    write(ch:4)
  end;
  writeln;
  writeln('Отрицательные числа:');
  while not eof(n) do
  begin
    readln(n, ch);
    write(ch:4)
  end;
  close(n);
  close(g)
end.