Построить вектор В, где В(i) номера строк последних минимальных элементов в i-ом столбце - Pascal

Формулировка задачи:

Ввести размерность матрицы и значения ее элементов. Построить вектор В, где В(i) номера строк последних минимальных элементов в i-ом столбце

Решение задачи: «Построить вектор В, где В(i) номера строк последних минимальных элементов в i-ом столбце»

Листинг программы

uses crt;
const n=5;
var a: array[1..n,1..n] of byte; b: array[1..n] of byte; i,j: byte
begin
randomize;
clrscr;
writeln('исходный массив: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;
for j:=1 to n do
begin
min:=a[1,j];
for i:=1 to n do
a[i,j]<min then min:=a[i,j];
b[j]:=min;
end;
writeln('результат: ');
for i:=1 to n do
write(b[i]:3);
end.

Объяснение кода листинга программы

Вводится константа n равная 5, которая определяет размерность массива.
Объявляется двумерный массив a размером 5x5, заполненный случайными значениями от 1 до 10.
Объявляется одномерный массив b размером 5, инициализированный нулями.
В цикле перебираются номера строк массива a.
В каждой строке находится минимальный элемент и сохраняется в переменной min.
В цикле перебираются номера столбцов массива a.
Если текущий элемент меньше min, то он становится новым min.
Значение min сохраняется в соответствующую ячейку массива b.
Выводится результат - массив b.