Найти количество столбцов, где все элементы положительны

program mas;
 
const
  c = 5;
 
var
  mass: array [1..c, 1..c] of integer;
  b: integer;
 
procedure input;
var
  i, j: integer;
begin
  for i := 1 to c do
  begin
    for j := 1 to c do
    begin
     // mass[i, j] := Random(10) - 5;
    read(mass[i, j]);
    end;
  end;
end;
 
procedure output;
var
  i, j: integer;
begin
  for i := 1 to c do
  begin
    for j := 1 to c do
    begin
      write(mass[i, j], ' ');
    end;
    writeln();
  end;
end;
 
procedure proc;
var
  i, j, a: integer;
begin
b:=0;
  for j := 1 to c do
  begin
    a := 0;
    for i := 1 to c do
    begin
      if mass[i, j] > 0 then
      begin
        a := a + 1;
      end;
    end;
    if a=c then
    begin
    b:=b+1;
    end;
  end;
end;
 
begin
  input;
  output;
  proc;
  writeln();
  writeln();
  writeln();
  writeln(b);
end.