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

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

Дан двумерный массив произвольной величины. Найти максимальный и минимальный элемент каждой строки массива. Заранее спасибо))

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

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

  WriteLn('A =');
  for i:=Low(a) to High(a) do begin
    mx:=a[i,Low(a[i])]; mn:=mx;
    for j:=Low(a[i]) to High(a[i]) do begin
      Write(a[i,j]:W);
      if mx<a[i,j] then mx:=a[i,j];
      if mn>a[i,j] then mn:=a[i,j];
    end; WriteLn(' | ',mx:W,mn:W);
  end;

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

Создается цикл для перебора строк матрицы:
- Переменная i равна Low(a) (индекс нижнего предела массива) и проходит через High(a) (индекс верхнего предела массива).
Устанавливаются начальные значения для переменных максимального и минимального элементов в строке:
- Переменная mx устанавливается равной элементу a[i,Low(a[i])] (первый элемент в строке).
- Переменная mn устанавливается равной mx.
Создается вложенный цикл для перебора элементов в строке:
- Переменная j равна Low(a[i]) и проходит через High(a[i]).
Выводится элемент матрицы с выравниванием:
- Выводится a[i,j] с использованием формата выравнивания W.
Если значение элемента больше, чем текущее максимальное значение, то оно становится новым максимальным значением:
- Если mx < a[i,j], то mx становится равным a[i,j].
Если значение элемента меньше, чем текущее минимальное значением, то оно становится новым минимальным значением:
- Если mn > a[i,j], то mn становится равным a[i,j].
Печатаются максимальное и минимальное значение в строке:
- Выводится строка с разделителями |, затем печатаются mx и mn с использованием формата выравнивания W.