Найти наибольший и наименьший элементы матрицы - Pascal

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

Найти наибольший и наименьший элементы матрицы R(KxN),К<=20,N<=10 и поменять их местами.

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

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

mx:a[1,1];imx:=1;jmx:=1;
mn:=a[1,1];imn:=1;jmn:=1;
for i:=1 to k do
for j:=1 to n do
 begin
  if a[i,j]>mx then
    begin
       mx:=a[i,j];
       imx:=i;
       jmx:=j
    end;
  if a[i,j]<mn then
    begin
       mn:=a[i,j];
       imn:=i;
       jmn:=j;
    end;
x:=a[imn,jmn];
a[imn,jmn]:=a[imx,jmx;
a[imx,jmx]:=x;
Все.

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

В первой строке кода объявлены переменные mx, imx, jmx, mn, imn, jmn и присвоены им значения a[1,1], 1, 1, a[1,1], 1, 1.
Далее в двух вложенных циклах for происходит перебор всех элементов матрицы a[i,j].
Если элемент a[i,j] больше текущего значения mx, то его значение присваивается mx, а индексы i и j сохраняются в переменных imx и jmx.
Если элемент a[i,j] меньше текущего значения mn, то его значение присваивается mn, а индексы i и j сохраняются в переменных imn и jmn.
После завершения циклов, в переменную x записывается значение элемента a[imn,jmn].
Значение x присваивается элементу a[imx,jmx], а элемент a[imx,jmx] присваивается x. Таким образом, после выполнения данного кода, в переменной mx будет содержаться наибольшее значение матрицы, в переменной mn - наименьшее значение матрицы, а в переменной x - элемент, который был заменен на максимальное значение.