Вывести на индекс первого и последнего минимального значения для каждой строки - Pascal

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

Для матрицы со стороной 10, заполненной числами от 0 до 9 вывести на экран индексы первого и последнего минимального значения для каждой строки.

Решение задачи: «Вывести на индекс первого и последнего минимального значения для каждой строки»

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

program pr1;
const
  ten = 10; nine = 9;
type
  mins = (firstMin, endMin);
var
  matrix: array [1..ten, 1..ten] of byte;
  minInd, endMinInd, min, str, row: byte;
  minIndices: array [mins, 1..ten] of byte;
begin
  Randomize();
  for str := 1 to ten do
  begin
    Write(str: 2, ': ');
    for row := 1 to ten do
    begin
      matrix[str, row] := Random(1 + nine);
      Write(matrix[str, row], ' ');
      if row <> 1 then
        if matrix[str, row] < min then
        begin
          min := matrix[str, row];
          minInd := row;
        end;
      if matrix[str, row] <= min then
        endMinInd := row;
      if row = 1 then
      begin
        min := matrix[str, row];
        minInd := 1;
        endMinInd := 1;
      end;
    end;
    WriteLn();
    minIndices[firstMin, str] := minInd;
    minIndices[endMin, str] := endMinInd;
  end;
  for str := 1 to ten do
  begin
    WriteLn('индекс первого и последнего мин значения в строке ', str, ': ',
      minIndices[firstMin, str], '; ', minIndices[endMin, str]);
  end;
  ReadLn();
end.

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

В программе объявлены две константы: ten и nine, которые соответствуют значениям 10 и 9 соответственно.
Создается тип данных mins, который представляет собой пару значений (firstMin, endMin), где firstMin - это первое минимальное значение, а endMin - последнее минимальное значение.
Объявляются переменные matrix, min, str, row, minInd и endMinInd. Matrix - это массив, в котором хранятся значения от 0 до 9. min - это переменная, которая будет содержать минимальное значение. str и row - это переменные, которые используются для прохода по строкам массива matrix. minInd и endMinInd - это переменные, которые будут содержать индексы первого и последнего минимального значения соответственно.
В цикле for происходит заполнение массива matrix случайными числами от 1 до 9.
Затем происходит проверка каждого элемента массива matrix на то, является ли он меньшим, чем текущее минимальное значение. Если это так, то обновляется значение min и соответствующие индексы minInd и endMinInd.
После завершения цикла for по строке, выводится информация о минимальном значении и его индексах для каждой строки.
В конце программы происходит считывание символа новой строки с помощью функции ReadLn().