Данна матрица 4Х5 построить одномерный массив b состоящий из наименьших значений элементов строк.

uses crt;var m:array[1..4,1..5]  of integer;    b:array[1..4] of integer;    min,i,j:integer;beginclrscr;for i:=1 to 4 dobeginfor j:=1 to 5 dobeginm[i,j]:=random(35)-30;end;end;for i:=1 to 4 dobeginfor j:=1 to 5 dowrite(m[i,j]:3,'  ' );writeln;end; min:=m[1,1];for i:=1 to 4 dobeginfor j:=1 to 5 dobeginif min>m[i,j] then min:=m[i,j];end;b[i]:=min;min:=m[i+1,1];end;for i:=1 to 4 dowriteln(i,') ',b[i]);readkey;end.