обработка двумерных массивов

[Jalgas-xan]

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

[Sciv]

for j:=1 to NumCol do begin
  sum[j]:=0;
  for i:=1 to NumRow do 
    if mas[i,j]>0 then sum[j]:=sum[j]+mas[i,j];
end;