Дан массив X(N,M). Найти произведение элементов тех столбцов массива, в которых все элементы положительные. Из полученных значений сформировать одномерный массив.

Помогите пожалуйста!

const nm = 20;var X:Array[1..nm,1..nm] of integer;i,j,n,m,k,p:integer;B:Array[1..nm] of integer;beginwrite('Введите строки n и столбцы m ');read(n,m);p:=1;for i:=1 to n do beginfor j:=1 to m do beginX[i,j]:= random(30)-5;write(X[i,j]:4);end;writeln;end;writeln;for j:=1 to m do beginfor i:=1 to n do beginif X[i,j] > 0 then beginp:= p * X[i,j]; k:= k+1;endelse beginp:= 1;k:=0;end;end;if k = n then B[j]:=p;p:= 1;k:=0;end;for i:=1 to m dowrite(i:2,B[i]:9);end.