Сформировать одномерный массив в из минимальных элементов строк двухмерного массива а (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