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

uses crt;var a:array[1..4,1..5] of integer;b:array[1..4] of integer;i, j,min:integer;beginfor i:=1 to 4 do beginfor j:=1 to 5 do begina[i,j]:=1+random(9);write(a[i,j]:4);end;writeln;end;writeln;for i:=1 to 4 do beginmin:=a[i,1];for j:=1 to 5 doif min>a[i,j] then min:=a[i,j];b[i]:=min;end;for i:=1 to 4 dowrite(b[i]:4);end.