По строковое и по столбовое сложение элементов в матрице Опции

[MAXTOR]

По строковое и по столбовое сложение элементов в матрице
Напишите пожалуйста как это выглядит в паскале

[bura]

Построковое сложение:

sum:=0;
 for i:=1 to n do
  for j:=1 to m do
   sum:=sum+Matrix[i,j];
 writeln('summa elemenov ravna ', sum);

Постолбцовое сложение:

sum:=0;
 for j:=1 to m do
  for i:=1 to n do
   sum:=sum+Matrix[i,j];
 writeln('summa elemenov ravna ', sum);

n - количество строк в матрице, m - количество столбцов в матрице.
Если условие несколько другое, т.е., надо посчитать суммы каждой из строк и суммы каждого из столбцов, то код будет другим.