дана квадратная матрица 4х4,нужно найти 1,2,3,4 части (как я понял,сумму индексов каждой части)

//Сумма столбиков матрицы 4х4var mas:array[1..4,1..4] of integer; sum:array[1..4] of integer; j,i:integer;begin for i:=1 to 4 do  sum[i]:=0; for j:=1 to 4 do  for i:=1 to 4 do   read(mas[j][i]); for j:=1 to 4 do  for i:=1 to 4 do   sum[i]:=sum[i]+mas[j][i]; for i:=1 to 4 do  writeln('Сумма столбика ',i,'=',sum[i]);end.