Дана действительная матрица A

program zadacha;
var M,N,J,I:integer;
A:array[1..M,1..N] of integer;
B:array[1..N] of integer;
begin
write('vvedite kolichestvo strok');
read(M);
write('vvedite kolichestvo stolbcov');
read(N);
for i:=1 to M do
for j:=1 to N do
begin
write('vvedite a[',i,',',j,'] element tablici');
readln(a[i,j]);
end;
i:=1;
for j:=1 to N do
if A[1..M,J]>0(незнаю как записать это условие, что все элементы j столбца больше нуля)
then B[J]:=2;
else 
if A[1..M,J]<0
then B[J]:=1;
else B[J]:=0;
for j:=1 to N do
write(' ',B[J]);
end.

program zadacha;
uses crt;
var M,N,J,I,ko,kp:integer;
    A:array[1..20,1..20] of integer;
    B:array[1..20] of integer;
begin
clrscr;
write('vvedite kolichestvo strok m=');
read(M);
write('vvedite kolichestvo stolbcov n=');
read(N);
for i:=1 to M do
for j:=1 to N do
begin
write('a[',i,',',j,']= ');
readln(a[i,j]);
end;
clrscr;
writeln('Matrica A:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3,' ');
  writeln;
 end;
writeln;
for j:=1 to N do
 begin
  ko:=0;kp:=0;
  for i:=1 to m do
   begin
    if a[i,j]<0 then ko:=ko+1; {считаем отрицательные в столбце}
    if a[i,j]>0 then kp:=kp+1;{положительные}
   end;
  if ko=m then b[j]:=1 {все отрицательные}
  else if kp=m then b[j]:=2{все полоэительные}
  else b[j]:=0;{ни то ни другое}
 end;
writeln('Massiv B:');;
for j:=1 to N do
write(' ',B[J]);
readln
end.