Выбрать в каждой строке матрицы B(6,5) минимальный элемент и вывести его на экран рядом с матрицей. ЯЗЫК ПРОГРАММИРОВАНИЯ ПАСКАЛЬ!

Предыдущий
вопрос Следующий
вопрос

program MinimumElement;
const
n = 6;
m = 5;
type
matrix = array[1..n, 1..m] of integer;
var
B: matrix;
i, j: integer;
minElement: integer;
begin
randomize;

// Заполнение матрицы B случайными числами
for i := 1 to n do
begin
for j := 1 to m do
begin
B[i, j] := random(100);
write(B[i, j]:4);
end;
writeln;
end;

writeln;

// Поиск минимального элемента в каждой строке
for i := 1 to n do
begin
minElement := B[i, 1];
for j := 2 to m do
begin
if B[i, j] < minElement then
minElement := B[i, j];
end;
writeln('Минимальный элемент в строке ', i, ': ', minElement);
end;
end.