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