Поменять местами строки, содержащие минимальный и максимальный элементы - PascalABC.NET

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

Дана целочисленная прямоугольная таблица размером m×n. Поменять местами строки, содержащие минимальный и максимальный элементы.

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

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

const
  n = 5;
  m = 4;
 
type
  matr = array[1..n, 1..m] of integer;
 
 
procedure zapolnenie(var mas: matr);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      mas[i, j] := random(100) + 1;
end;
 
procedure vivod(const mas: matr);
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
      Write(mas[i, j]:4);
    Writeln;
  end;
end;
 
function minst(const mas: matr): integer;
var
  i, j, min, x: integer;
begin
  min := mas[1, 1];
  for i := 1 to n do
    for j := 1 to m do
      if (min > mas[i, j]) then
      begin
        min := mas[i, j];
        x := i;
      end;
  minst := x;
end;
 
function maxst(const mas: matr): integer;
var
  i, j, max, x: integer;
begin
  max := mas[1, 1];
  for i := 1 to n do
    for j := 1 to m do
      if (max < mas[i, j]) then
      begin
        max := mas[i, j];
        x := i;
      end;
  maxst := x;
end;
 
procedure zamena(var mas: matr; const min, max: integer);
var
  i, j: integer;
begin
  for j := 1 to m do
  begin
    i := mas[min, j];
    mas[min, j] := mas[max, j];
    mas[max, j] := i;
  end;
end;
 
 
var
  mas: matr;
  min, max: integer;
 
begin
  zapolnenie(mas);
  vivod(mas);
  min := minst(mas);
  max := maxst(mas);
  Writeln;
  zamena(mas, min, max);
  vivod(mas);
end.

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

В начале кода объявлены константы n = 5 и m = 4, которые определяют размер матрицы.
Далее определён тип матрицы matr, который представляет собой массив размером n на m целочисленных значений.
Затем определены две процедуры: zapolnenie и vivod.
- zapolnenie заполняет матрицу случайными значениями от 1 до 100.
- vivod выводит значения матрицы на экран.
Далее определены две функции: minst и maxst.
- minst находит индекс строки с минимальным значением в матрице.
- maxst находит индекс строки с максимальным значением в матрице.
В конце кода определена процедура zamena, которая меняет местами строки с минимальным и максимальным значениями в матрице.
В основной части кода после заполнения и вывода матрицы на экран, находятся индексы строк с минимальным и максимальным значениями, затем вызывается процедура zamena для замены строк.
После замены строк выводится обновленная матрица на экран.