Массивы. Найти произведение элементов тех столбцов массива,в которых все элементы положительны

Uses crt;
const Nmax = 10;
type Matrix = array [ 1 .. Nmax , 1 .. Nmax ] of integer;
type Mas = array [ 1 .. Nmax*Nmax ] of integer;
var
 X: Matrix;
 Massiv: Mas;
 i, j, n, m, len, count: byte;
 d: longint;
begin
clrscr;
randomize;
repeat
 write('Enter rows(n):');readln(n);
 write('Enter columns(m):');readln(m);
until ( n in [ 1 .. 10 ] ) and ( m in [ 1 .. 10 ] );
 
for i:=1 to n do begin
 for j:=1 to m do begin
     X[i,j] := random(100) - 20;
     write(X[i,j],' ');
 end;
writeln;
end;
 
len:=0; count:=0;
for j:=1 to m do begin
 d:=1;
 for i:=1 to n do
 if X[i,j] > 0 then begin
    d:=d*X[i,j];
    inc(count);
 end;
 if count = m then begin
    inc(len);
    Massiv[len]:=d;
 end;
end;
 
writeln;
if len = 0 then write('Sorry, there is no such columns.')
 else
for i:=1 to len do write(Massiv[i],' ');
readln;
end.