Сделать блок-схему.

Дана матрица, есть ли в данном массиве столбец, состоящий только из положительных элементов.Помогите!!

const n = 10;

var mat: array [1..n, 1..n] of integer;

sum, count: array [1..n] of integer;

begin

  for var i:=1 to n do

    for var j:=1 to n do

      mat[i, j] := random(-10, 30);

  writeln('Matrix: ');

  for var i:=1 to n do

  begin

    for var j:=1 to n do

      write(mat[i, j]:4);

    writeln();

  end;

  writeln();

  for var i:=1 to n do

    for var j:=1 to n do

      if mat[i, j] > 0 then

      begin

        sum[j] += mat[i,j];

        count[j] += 1;

      end;

  writeln('Sum:');

  for var i:=1 to n do

    write(sum[i]:4);

  writeln();

  writeln('Positive count:');

  for var i:=1 to n do

    write(count[i]:4);

  writeln();

end.