Даны натуральные числа n,m и двумерный массив разиером nXm. Составте программу, которая находит сумму элементов той строки,

program zz1;

const n = 4;  

     m = 7; // задаем количество элементов в массиве

var  i, j, k, min, s:integer; // задаем переменные целого типа

b:array [1..n,1..m] of integer;

begin

for i:=1 to n do

 for j:=1 to m do // получаем числа и записываем их в массив

   b[i,j]:=random(201)-100;

for i:=1 to n do  // выводим полученный массив на экран

    begin

for j:=1 to m do

   write(b[i,j]:4);

   writeln;

   end;

   min:=100000;

for i:=1 to n do  

  for j:=1 to m do

  if b[i,j] < min then begin min:=b[i,j];k:=i;end; //  находим минимальный и запоминаем номер строки

for j:=1 to m do

s:=s + b[k,j];

write( \' сумма элементов массива \', k,\'-ой строки = \', s);   // выводим ответ

end.