Вывести максимальный элемент массива и его индексы по условиям. - PascalABC.NET

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

В метании молота состязается n спортcменов. Каждый из них сделал m бросков. Победителем соревнований объявляется тот спортсмен, у которого максимален наилучший результат по всем броскам. Таким образом, программа должна найти значение максимального элемента в данном массиве, а также его индексы (то есть номер спортсмена и номер попытки). Входные данные Программа получает на вход два числа n и m, являющиеся числом строк и столбцов в массиве. Далее во входном потоке идет n строк по m чисел, являющихся элементами массива. Выходные данные Программа выводит значение максимального элемента, затем номер строки и номер столбца, в котором он встречается. Если в массиве несколько максимальных элементов, то нужно вывести минимальный номер строки, в которой встречается такой элемент, а если в этой строке таких элементов несколько, то нужно вывести минимальный номер столбца. Не забудьте, что все строки и столбцы нумеруются с 0. Примеры входные данные 3 3 3 1 2 1 3 4 3 3 3 выходные данные 4 1 2

Решение задачи: «Вывести максимальный элемент массива и его индексы по условиям.»

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

var a:array[,]of integer;
    n,m,i,j,max, maxi, maxj: integer;
begin
read(n,m);
setlength(a,n,m);
for i:=0 to n-1 do
for j:=0 to m-1 do
read(a[i,j]);
max:=a[0,0];
maxi:=0;
maxj:=0;
for i:=0 to n-1 do
for j:=0 to m-1 do
if a[i,j]>max then
 begin
  max:=a[i,j];
  maxi:=i;
  maxj:=j;
 end; 
writeln(max,' ',maxi,' ',maxj);
end.

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

Объявляются переменные:
- a - двумерный массив целых чисел;
- n, m, i, j, max, maxi, maxj - целочисленные переменные для работы с массивом и его элементами.
Считываются значения для переменных n и m.
Устанавливается длина массива a равной значениям переменных n и m.
В цикле считываются значения всех элементов массива a.
Инициализируются значения переменных max, maxi и maxj, которые будут хранить индексы максимального элемента массива.
В цикле перебираются все элементы массива a. Если текущий элемент больше значения переменной max, то обновляются значения переменных max, maxi и maxj.
Выводятся значения переменных max, maxi и maxj.