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

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

Дан двумерный массив из M строк и N столбцов,состоящий из натуральных чисел.Найдите в нем наибольший элемент, определите его местоположение .Если таких элементов несколько ,выведете на экран монитора их количество и положение

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

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

max:=0;
cnt:=0;
for i:=1 to m do
  for j:=1 to n do
  begin
    if A[i,j]=max then
      inc(cnt);
    if A[i,j]>max then begin
      max:=A[i,j];
      cnt:=1;
    end;
   end;
writeln('Count: ', cnt);

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

Переменная max инициализируется значением 0. Эта переменная будет использоваться для хранения наибольшего элемента в массиве.
Переменная cnt инициализируется значением 0. Эта переменная будет использоваться для отслеживания количества найденных наибольших элементов.
Запускается цикл for, который выполняется от 1 до m, где m - это размер массива.
Внутри цикла for запускается вложенный цикл for, который выполняется от 1 до n, где n - это размер массива A.
Внутри вложенного цикла проверяется условие if A[i,j] = max then, где A[i,j] - это элемент массива с индексами i и j. Если элемент равен max, то увеличивается значение переменной cnt на 1.
Если условие if A[i,j] > max then истинно, то переменная max обновляется значением A[i,j]. Также переменная cnt устанавливается равной 1.
После завершения вложенного цикла for, значение переменной max будет содержать наибольший элемент массива, а переменная cnt будет содержать количество найденных наибольших элементов.
Выводится сообщение Count: и значение переменной cnt.
Код завершается.