Определить кол-во столбцов, не содержащих ни одного нулевого элемента

uses crt;
const n=5; m=4;
var a:array[1..n,1..m]of integer;
i,j,k,b:integer;
f:boolean;
 
function sum(k:integer):integer;
var j,s:integer;
begin
 s:=0;
 for j:=1 to m do if (a[k,j]>0) and (a[k,j] mod 2=0) then s:=s+a[k,j];
 sum:=s;
end;
 
begin
 clrscr;
 randomize;
 writeln('Исходная матрица');
 for i:=1 to n do
 begin
  for j:=1 to m do
  begin
   a[i,j]:=-20+random(60);
   write(a[i,j]:4);
  end;
  writeln;
 end;
 
 k:=0;
 for j:=1 to m do
 begin
  f:=true;
  for i:=1 to n do if a[i,j]=0 then
  begin
   f:=false;
   break;
  end;
  if f then inc(k); 
 end;
 writeln('Таких столбцов - ',k);
 
 for i:=1 to n-1 do
 if sum(i)>sum(i+1) then
 begin
  for j:=1 to m do
  begin
   b:=a[i,j];
   a[i,j]:=a[i+1,j];
   a[i+1,j]:=b;
  end;
 end;
 
 writeln('Отсортированная матрица');
 for i:=1 to n do
 begin
  for j:=1 to m do write(a[i,j]:4);
  writeln;
 end;
 readln;
end.