Поменять местами наибольший элемент матрицы с указанным элементом - Pascal ABC

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

Помогите решить задачу В двумерном массиве c случайными целыми числами в диапазоне от -50 до 50, поменять местами наибольший элемент с указанным элементом [p, q]. размерность NxM (задается константами).

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

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

const
  n = 3;
  m = 4;
 
var
  A: array[1..n, 1..m] of integer;
  i, j, p, q, imax, jmax: integer;
 
begin
  imax := 1;
  jmax := 1;
  // проверки p,q нет
  write('P: ');readln(p);
  write('Q: ');readln(q);
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(-50, 50);
      write(a[i, j]:4);
      if (A[i, j] > A[imax, jmax]) then 
      begin
        imax := i;
        jmax := j;
      end;
    end;
    writeln;
  end;
  writeln('Max:', a[imax, jmax]);  
  writeln('Измененный массив:');
  i := A[imax, jmax];
  A[imax, jmax] := A[p, q];
  A[p, q] := i;
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:4);
    writeln;
  end;
  Readln;
end.

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

В начале объявляются константы n и m, которые задают размер матрицы.
Затем объявляется переменная A, которая представляет собой матрицу целых чисел размером n на m.
Далее объявляются переменные i, j, p и q, которые будут использоваться для перемещения элементов матрицы.
Следующий блок кода вычисляет индексы максимального элемента в матрице A с помощью переменных imax и jmax.
Затем выполняется цикл, который проходит по каждому элементу матрицы A. Внутри цикла генерируются случайные числа от -50 до 50 для каждого элемента.
Если текущий элемент A[i, j] больше, чем максимальный элемент A[imax, jmax], то его индексы обновляются.
После завершения внутреннего цикла выводится наибольший элемент матрицы.
Затем выполняется второй цикл, который проходит по каждому элементу матрицы A. Внутри цикла выводится значение текущего элемента и затем он заменяется на значение наибольшего элемента A[imax, jmax].
После завершения внешнего цикла выводится измененная матрица.
Наконец, выводится введенный пользователем индекс P и значение Q.