for i := low(a) to high(a) do begin s := 0; for j := low(a[i]) to high(a[i]) do s := s + a[i,j]; b[i] := s; // типа сохраняем в каком-то массиве end;