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

function Count: Integer;
begin
Result := 0;
for i := 1 to ColCount do
begin
C := 1;
for w := 1 to RowCount do
begin
if Massiv[i,w]<=0 then C := 0;
end;
Result := Result + C;
end;
end;