Найти наименьший элемент в каждой строке матрицы - Pascal ABC

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

Помогите пожалуйста Найти наименьший элемент в каждой строке матрицы A(N,M) и переписать их в массив B. Массив B напечатать.

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

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

var a: array[1..100, 1..100] of integer;
    b: array[1..100] of integer;
    i, j, n, m, min: integer;
begin
  randomize;
  write('N, M = ');
  read(n, m);
  for i := 1 to n do begin
    min := 1;
    for j := 1 to m do begin
      a[i, j] := random(31) - 15;
      if a[i, j] < a[i, min] then min := j;
      write(a[i, j]:4);
    end;
    b[i] := a[i, min];
    writeln;
  end;
  writeln;
  for i := 1 to n do
    write(b[i], ' ');
end.

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

Объявлены переменные:
- a - двумерный массив (100 строк x 100 столбцов) для хранения чисел;
- b - одномерный массив (100 элементов) для хранения минимальных значений;
- i, j, n, m, min - целочисленные переменные для выполнения операций.
Выполнена инициализация генератора случайных чисел с помощью функции randomize.
Пользователю предлагается ввести количество строк и столбцов матрицы с помощью функции read(n, m).
В цикле от 1 до n (количество строк) выполняется следующий алгоритм:
- Инициализируется переменная min значением 1, которая будет использоваться для хранения номера столбца с минимальным значением в текущей строке.
- В цикле от 1 до m (количество столбцов) выполняется следующее:
- Значение элемента матрицы a[i, j] устанавливается случайным числом в диапазоне от -15 до 15 с помощью функции random(31) - 15.
- Если полученное значение меньше значения элемента a[i, min], то значение переменной min обновляется значением j.
- Значение элемента матрицы a[i, j] выводится на экран с помощью функции write(a[i, j]:4).
- Значение элемента матрицы b[i] устанавливается равным значению элемента a[i, min].
- Выполняется вывод на экран символа - с помощью функции writeln.
Выполняется вывод на экран значений матрицы b с помощью цикла for и функции write(b[i], ' ').