2_мерный и одномерный массивы, присвоив его k-тому элементу значение true, если все элементы k-того с Опции

[Insomnia]

const n=15; m=20;
var A: array[1..m,1..n] of integer; b: array[1..m] of boolean;
По массиву А получить массив b, присвоив его k-тому элементу значение true, если все элементы k-того столбца массива А нулевые, и значение false иначе.

var		 
	A: array[1..m,1..n] of integer;		
	b: array[1..m] of boolean;		 
	l,i,j:integer;		 
	k:boolean;  
begin	 
   writeln('vvedite k');	 
   readln(k);	 
   writeln('vvedite massiv');	 
 for i:=1 to m do	
   for j:=1 to n do	   
	  readln(A[i,j]);	
  for i:=1 to m do	
	for j:=1 to n do	 
   begin		 
	m:=m+1;		
	b[m]:=A[i,j];	  
   end;	 
 for i:=1 to m do   
  for j:=1 to n do	 
	if   
end.

мне непонятны операции с k . как посчитать к-столбец?