Составте программу формирования из массива а двух массивов, в которых первый замолнен отрицательными, а второй-положительными элементами.

Program Pr1;
uses crt;
var mas:array[1..100] of integer;
pos:array[1..100] of integer;
min:array[1..100] of integer;
i,b,c:integer;
Begin
clrscr;
b:=0;
c:=0;
randomize;
for i:=1 to 100 do mas[i]:=-100+random(200);
for i:=1 to 100 do write(mas[i]);
writeln();
for i:=1 to 100 do if mas[i]>=0 then begin
b:=b+1;
pos[b]:=mas[i];
end
else begin
c:=c+1;
min[c]:=mas[i];
end;
writeln('Polojitelnye');
for i:=1 to b do write(pos[i]);
writeln();
writeln('Otricatylnye');
for i:=1 to c do write(min[i]);
end.