Даны естественные числа 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] lt; 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.