Приведенный ниже код демонстрирует, как можно решить эту задачу на языке Pascal:

program MinElementsOfEachRow;
const
N = 3; // количество строк
M = 4; // количество столбцов
type
Matrix = array [1..N, 1..M] of Integer;
ArrayOfMinElements = array [1..N] of Integer;
var
A: Matrix;
B: ArrayOfMinElements;
i, j: Integer;
begin
// заполнение двумерного массива A
for i := 1 to N do
for j := 1 to M do
A[i, j] := Random(100); // например, заполняем случайными числами от 0 до 99
// вывод двумерного массива A
writeln('Двумерный массив A:');
for i := 1 to N do
begin
for j := 1 to M do
write(A[i, j], ' ');
writeln;
end;
// формирование одномерного массива B из минимальных элементов каждой строки
for i := 1 to N do
begin
B[i] := A[i, 1];
for j := 2 to M do
if A[i, j] < B[i] then
B[i] := A[i, j];
end;
// вывод одномерного массива B
writeln('Одномерный массив B (минимальные элементы каждой строки):');
for i := 1 to N do
write(B[i], ' ');
readln;
end.

Этот код создает двумерный массив A, заполняет его случайными числами и затем формирует одномерный массив B, содержащий минимальные элементы каждой строки массива A.