Последовательность минимальных элементов строк матрицы - Pascal

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

Даны натуральное число n, целочисленная матрица X порядка n x n. Получить последовательность b1, b2,... bn, где bi, - это наименьшее из значений элементов, находящихся в начале i-ой строки матрицы X до элемента, принадлежащего главной диагонали включительно. Помогите пожалуйста кто чем сможет. Заранее всем большое спасибо!!!

Решение задачи: «Последовательность минимальных элементов строк матрицы»

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

uses crt;
const nmax=20;
var x:array[1..nmax,1..nmax] of integer;
    b:array[1..nmax] of integer;
    n,i,j:byte;
    mn:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     x[i,j]:=random(40)+10;
     write(x[i,j]:4);
    end;
   writeln;
 end;
writeln;
writeln('Последовательность минимальных элементов строк до главной диагонали:');
for i:=1 to n do
 begin
  mn:=x[i,1];
  for j:=1 to i do
  if x[i,j]<mn then mn:=x[i,j];
  b[i]:=mn;
  write(b[i],' ');
 end;
readln
end.

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

Установка начального размера матрицы и заполнение ее случайными значениями.
Вывод исходной матрицы на экран.
Создание пустой строки для хранения минимальных значений элементов строк.
Проверка каждого элемента строки на минимальность и обновление минимального значения при необходимости.
Вывод последовательности минимальных значений элементов строк до главной диагонали на экран.
Запрос ввода для завершения программы.