MODULE CalcSum;

VAR
Ma: ARRAY 10 OF ARRAY 10 OF INTEGER;
MRes: ARRAY 10 OF INTEGER;
Mi, Mk: INTEGER;
BEGIN
(* Заполнение массива Ma *)
Следует заполнить чем-нибудь
(* Расчет суммы *)
FOR Mi:=0 TO 9 DO
FOR Mk:=0 TO 9 DO
INC(MRes[Mi],Ma[Mi,Mk]); (* Накопление суммы *)
END;
END;
END CalcSum.


Че та не то!