Дана целочисленная прямоугольная таблица размером m×n. Указать строку (назвать её номер), где сумма элементов ближе всего к нулю

const nx = 20;mx = 30;var A:array[1..nx,1..mx]of integer; i,j,n,m,min,z:integer; sum:array[1..nx]of integer;beginwrite('Введите число строк и столбцов');Readln(n,m);min:=1000;for i:=1 to n do beginsum[i]:=0;for j:=1 to n do beginA[i,j]:= random(100)-50;write(A[i,j]:5);sum[i]:= sum[i] + A[i,j];end;writeln;if min > abs(sum[i]) then begin min := abs(sum[i]);z:=i;end;end;writeln;for i:=1 to n dowriteln('i= ',i,' sum = ', sum[i]:4);writeln;writeln('Ближе всего к нулю i= ',z,' sum = ', sum[z]:4);end.