[Pascal] Нахождение наибольшей из сум модулей элементов многомерного массива

[just4smth]

Задание:

Дана прямоугольная матрица. Какова наибольшая из сумм модулей её элементов в каждой строчке?

Налепил вариант для одномерного массива (не совсем правильно работает):

Program var15_dvymernii_massiv;
Uses crt;
Const m=3;

Var a:array[1..m] of integer;
    i,a1,a2,a3,s1,s2,s3,max:integer;

Begin
        clrscr;
        Writeln('Введите элементы массива');
        for i:=1 to m do
           Readln(a[i]);

        for i:=2 to m-1 do begin
           a1:=a[i-1];
           a2:=a[i];
           a3:=a[i+1];

           {Находим сумму элементов по модулю}
           s1:=abs(a1+a2);
           s2:=abs(a2+a3);
           s3:=abs(a1+a3);

           {Вычислям наибольшую из сумм модулей}
           if (s1>s2) and (s1>s3) then
              max:=s1;
           if s2>s3 then
             max:=s2
           else
             max:=s3;
        end;
        Writeln(max);
        Readln;
End.

Как избавиться от лишних переменных и дописать\переделать для многомерного массива?

[Mad_Cat]

smax:=-1;
for i:=1 to n do begin s:=0;
for j:=1 to m do
s:=abs(a[i,j])+s;
if s>smax then smax:=s;
end;
writeln(smax);

[just4smth]

Сообщение от Mad_Cat

smax:=-1;
for i:=1 to n do begin s:=0;
for j:=1 to m do
s:=abs(a[i,j])+s;
if s>smax then smax:=s;
end;
writeln(smax);

Большое спасибо!
Однако, не могли бы вы прокомментировать алгоритм?
И как выводить наибольшую из сумм модулей каждой строки?

[Mad_Cat]

И как выводить наибольшую из сумм модулей каждой строки?

writeln(smax);

а чего тут комментировать7 идем по строке ищем сумму модулей и если она >max тогда делаем ее Max и переход к след строке