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