По массиву А получить массив b, присвоив его k-му элементу значение true, если выполнено указанное ниже условие, н значение false иначе: а)* все элементы k-го столбца массива А нулевые; — Pascal(Паскаль)

var A:array [1..15,1..20] of integer;
b:array [1..15] of boolean;

const 
n=15;
m=20;
var
a:array[1..n,1..m] of integer;
b:array[1..n] of boolean;
i,j,k:integer;
begin
for i:=1 to n do
    begin 
        for j:=1 to m do
          begin
            a[i,j]:=random(40);
            write('  ',a[i,j]:3);
          end;
        writeln();
    end;
writeln('--------') ; 

for i:=1 to n do
begin
     k:=0;
     for j:=1 to m do
     if a[i,j]=0 then inc(k);
     if k<>10 then b[i]:=false else b[i]:=true;
end;

writeln('--------') ; 

for i:=1 to n do
    begin 
        write('  ',b[i]:3);
        writeln();
    end;
    
end.