Подсчитать количество столбцов, в которых отличны от нуля только три элемента — Pascal(Паскаль)

const 
m=5;
n=6;
var
a:array[1..m,1..n] of integer;
i,j,r,c:integer;
begin
for j:=1 to m do
    begin 
        for i:=1 to n do
          begin
            a[i,j]:=random(2);
            write('  ',a[i,j]:3);
          end;
        writeln();
    end;
writeln('--------') ; 

r := 0;
for j := 1 to M do
begin
  c := 0;
  for i := 1 to N do
    if a[i, j] <> 0 then
      Inc(c);
  if c = 3 then
    Inc(r);
end;
writeln(r);
writeln('--------') ; 

end.