Программирование Матрица дана матрица a (nxm) найти сумму в неотрицательных столбцах

s = 0;
w.times |x| do

f = true;

h.times |y| do if (a[x,y] < 0) f = false; end;

if (flag) h.times |y| do s += arr[x,y]; end;

end;