Матрицы. Найти максимальный и минимальный элементы данного массива и поменять их местами - Turbo Pascal

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

В TurboPascal 3)Дан двумерный массив размерностью N*M(N и M вводятся с клавиатуры).Найти максимальный и минимальный элементы данного массива и поменять их местами.Произвести вывод данного массива в виде матрицы. Заранее СПАСИБО!!

Решение задачи: «Матрицы. Найти максимальный и минимальный элементы данного массива и поменять их местами»

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

Var A:array[1..20,1..20] of integer;
    n,m,i,j,max,min,t,r,q,p,o:integer;
Begin
    write('Введите кол-во строк: ');readln(n);
    write('Введите кол-во стобцов: ');readln(m);
    max:=-10;min:=10;
    Randomize;
    For i:=1 to n do
     Begin
      For j:=1 to m do
       Begin
        A[i,j]:=random(11)-5;
        write(A[i,j]:3);
        if a[i,j]>max then
         Begin
          max:=a[i,j];
          r:=i;
          q:=j;
         End;
        if a[i,j]<min then
         Begin
          min:=a[i,j];
          p:=i;
          o:=j;
         End; 
        End;
       writeln;
      End;
     writeln('Max: ',max);
     writeln('Min: ',min);
     t:=A[r,q];
     A[r,q]:=A[p,o];
     A[p,o]:=t;
     For i:=1 to n do
      Begin
       For j:=1 to n do
        write(A[i,j]:3);
       writeln;
      End;
End.

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

Создается переменная A типа array[1..20,1..20] of integer, которая представляет собой матрицу размером 20x20.
Пользователю предлагается ввести количество строк (n) и количество столбцов (m). Эти значения сохраняются в переменных n и m соответственно.
Инициализируются переменные max и min значением -10 и 10 соответственно. Они будут использоваться для отслеживания максимального и минимального элементов массива.
Используя цикл for, заполняется матрица A случайными числами в диапазоне от 1 до 10. Каждому элементу присваивается случайное число из этого диапазона.
Внутри цикла проверяется, является ли текущий элемент максимальным или минимальным среди всех элементов массива. Если это так, то его значение сохраняется в переменной max или min соответственно, а также запоминаются индексы i и j, соответствующие этому элементу.
После завершения внутреннего цикла, выполняется проверка на максимальные и минимальные значения. Если текущий элемент больше max, то его значение присваивается переменной max, а индексы i и j обновляются. Аналогично, если текущий элемент меньше min, то его значение присваивается переменной min, а индексы i и j обновляются.
После завершения внешнего цикла, выводится значение max и min.
Затем выполняется операция обмена значениями между элементами массива, которые были определены как максимальные и минимальные. Для этого используется переменная t, которая будет использоваться для временного хранения значения max или min, а затем присваивается значение A[p,o], где p и o - индексы, соответствующие min или max. Значение A[p,o] заменяется на t.
Завершается цикл, и выводится обновленное значение массива A.