Найти строку двумерного массива с наименьшей суммой элементов язык паскаль, const…

Program naim; const n=4; m=2; var a: array [1… n, 1… m] of integer; s: array [1… n] of integer; i, j, min: integer; beginfor i: =1 to n do begins[i]: =0; for j: =1 to m doread (a[i,j]); writeln ('); end; for i: =1 to n dofor j: =1 to m dos[i]: =s[i]+a[i,j]; j: =1; min: =s[1]; for i: =2 to n doif s[i]