дан двумерный массив. сформировать одномерный массив из минимальных элементов каждой строки.pascal

var a: array[1..10,1..10] of Integer;       b: array[1..10] of Integer;       i, j, min: Integer;Begin  for i := 1 to 10 do  begin    min := 10;    for j := 1 to 10 do    begin      a[i,j] := random(10);      write(a[i,j],' ');      if a[i,j] < min then min := a[i,j];    end;    b[i] := min;    writeln;  end;  writeln;  for i := 1 to 10 do    write(b[i],' ');  End.