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

var t,t1:text; b:array[1..20] of integer; i,j:integer;beginassign(t,'G:\2015\12\input.txt');reset(t);while not eof(t) do begini:= 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 doif b[j] > 0 then writeln(t,b[j])else writeln(t1,b[j]);close(t);close(t1);end.