сформировать одномерный массив В из минимальных элементов строк двухмерного массива А (N, M) Паскаль, написать эту программу в тетрадь

const  nm = 20;  nn = 20;var  a: array[1..nm, 1..nn] of integer;  b: array[1..nm] of integer;  i, j, m, n, mina: integer;begin  Write('Введите число строк и столбцов массива: '); Readln(m,n);  Randomize;  Writeln('Исходный массив');  for i := 1 to m do  begin    for j := 1 to n do    begin      a[i, j] := Random(101) - 50;      Write(a[i, j]:4)    end;    Writeln  end;    for i:=1 to m do  begin    mina:=32767;    for j:=1 to n do if mina>a[i,j] then mina:=a[i,j];    b[i]:=mina  end;    Writeln('Сформированный массив');  for i:=1 to m do Write(b[i]:4);  Writelnend.Тестовое решение:Введите число строк и столбцов массива: 6 5Исходный массив  46 -32  -6  20  36  -2 -41 -10 -42  26 -33  16 -25   9  46 -36  20 -50  36 -37 -41  16  34  -8   9  38 -36 -14 -18 -33Сформированный массив -32 -42 -33 -50 -41 -36