Найти индекс первого наименьшего элемента массива - Pascal ABC

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

Двумерные массивы: 1.Дан массив из NxM элементов. Найти индексы первого наименьшего элемента массива.

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

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

program qq;
var m, n, i, j, k, l: integer;
    a: array [1..20, 1..20] of real;
    b: array [1..20] of real;
    min: real;
begin
  write ('Введите количество строк матрицы m = ');
  readln (m);
  write ('Введите количество столбцов матрицы n = ');
  readln (n);
  writeln ('Введите элементы массива:');
  
  for i:= 1 to m do
    for j:= 1 to n do
      begin
        write ('a[', i, ',', j, '] = ');
        readln(a[i,j]);
      end; 
 
  for i:=1 to m do
    begin
      for j:=1 to n do
        write (a[i,j], '   '); 
      writeln;
    end;
    
  min:=a[1,1];
  for i:= 1 to m do
    for j:= 1 to n do
      if (min>a[i,j]) then 
        begin
          min:=a[i,j];
          k:=i;
          l:=j;
        end;
  writeln ('min = a[',k, ',', l, '] = ', min); 
end.

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

В программе объявлены переменные m, n, i, j, k, l, которые будут использоваться для работы с массивом и индексацией.
Пользователю предлагается ввести количество строк и столбцов матрицы. Эти значения сохраняются в переменных m и n соответственно.
Программа запрашивает и сохраняет в массив a элементы, которые пользователь вводит для матрицы.
Затем программа выводит минимальный элемент массива a.
Далее происходит поиск индексов первого наименьшего элемента в массиве a. Индексы i и j присваиваются соответствующим значениям.
Если минимальный элемент находится вне диапазона [i, j], то значение минимального элемента обновляется и присваивается индексам k и l.
В конце программа выводит найденные индексы наименьшего элемента.