Как решить эту задачу? (двуммерные массивы\матрицы)

const
    max = 100;
var
    a: array [1..max, 1..max] of integer;
    n, m, i, j, s, sm, smi: integer;
begin
    randomize;
    write('n m? ');
    readln(n, m);
    for i := 1 to n do begin
        for j := 1 to m do begin
            a[i, j] := random(100);
            write(a[i, j]:4);
        end;
        writeln;
    end;
    smi := 1;
    for j := 1 to m do inc(sm, a[1, j]);
    for i := 2 to n do begin
        s := 0;
        for j := 1 to m do inc(s, a[i, j]);
        if s < sm then begin
            sm := s;
            smi := i;
        end;
    end;
    writeln('в строке ', smi, ' минимальная сумма элементов');
end.

Задача решается в среде Паскаль путем:
1. Объявление массива, и переменных: счетчики (2), номер_строки (строка с минимальной суммой) и сумма_строки (для накопления суммы)
2. Инициализация переменных и матрицы
3. Проводится перебор матрицы построчно с помощью вложенного цикла и находится сумма строки, если она меньше минимальной - запонимаем.
4. Вывод номера строки и суммы элементов