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

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.