Из элементов двумерного массива создать два новых одномерных один из положительных другой из отрицательных

Begin
for i:=1 to n do begin
if a[i]>0 then begin b[k]:=a[i]; k:=k+1; end
             else begin c[m]:=a[i]; m:=m+1; end;
end;

a[i]- исходный массив;
b[k] и c[m]- полученные массивы