хотелось бы чтобы он выводил несколько номеров столбцов

program L5var3;
 const n=4;m=4;
 type mass=array [1..n] of integer;
 type mass2=array [1..n,1..m] of integer;
 var a:mass2;
 
 function kst0(a:mass2):integer;
 var i,j,l,k:integer;
 begin
 l:=0;k:=0;
 for i:=1 to m do
 begin
 k:=0;
 for j:=1 to n do
 if a[i,j]=0 then k:=k+1;
 if k>0 then l:=l+1
 end;
 kst0:=l
 end;
 
 procedure vvod(var a:mass2);
 var i,j:integer;
 begin
 writeln('Vvedi matricu razmerom ',n,' na ',m,' elementov.');
 for i:=1 to n do
 for j:=1 to m do
 a[i,j]:=Random(20);
 readln(a[i,j]);
 
 writeln ('Vvedennaya matrica:');
 for i:=1 to n do
 begin
 for j:=1 to m do
 write (a[i,j],' ');
 writeln
 end;
 end;
 
 procedure poisk(a:mass2);
 var i,j,q,w,r,t:integer;
 begin
 w:=1;r:=0;
 for j:=1 to m do
 begin
 q:=1;t:=1;
 for i:=1 to n-1 do
 if a[i,j]=a[i+1,j] then
 begin
 t:=t+1;
 if t>q then q:=t
 end
 else t:=1;
 if q>w then
 begin
 r:=j;
 w:=q
 end;
 end;
 if w=1 then writeln('V matrice net stolbzov s podryad idushimi odinak. el-mi')
 else begin
 writeln('Nomer iskomoy stolbza = ',r);
 writeln('Kolichestvo podryad povtoryayushihsya elementov = ',w)
 end;
 end;
 
 begin
 vvod(a);
 poisk(a);
 writeln('Kolichestvo strochek s hotyabi odnim 0-elementom = ',kst0(a));
 readln
 end.