Дан файл, компоненты которого являются целыми числами. Получить два новых файла, состоящих только из положительных и только отрицательных

Var t, t1:text; b:array[1 ... 20] of integer; i, j:integer;

begin

assign (t,'G:/2015/12/input. txt') ; reset (t) ;

while not eof (t) do begin

i: = i + 1; readln (t, b[i]) ;

writeln (b[i]) ; end; close (t) ;

assign (t,'G:/2015/12/output. txt') ;

assign (t1,'G:/2015/12/output1. txt') ;

Rewrite (t) ; Rewrite (t1) ;

for j:=1 to i do

if b[j] > 0 then

writeln (t, b[j])

else

writeln (t1, b[j]) ;

close (t) ; close (t1) ; end.