Сформировать одномерный массив в из минимальных элементов строк двухмерного массива а (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);   writeln end. тестовое решение: введите число строк и столбцов массива: 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

Без фотки не ответят(не понятно)!