Напишите программу, которая находит и выводит на экран наибольший элемент матрицы - PascalABC.NET

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

Дана матрица A(m,n), элементы которой - целые числа . Напишите программу , которая находит и выводит на экран наибольший элемент матрицы, а также номер строки и номер столбца , соответствующий этому элементу .

Решение задачи: «Напишите программу, которая находит и выводит на экран наибольший элемент матрицы»

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

const
  n=6;m=7;
var
  a:array[1..n,1..m] of integer;
  v:array[1..m div 2] of integer;
  i,j,k,l:integer;
begin
  randomize;
  writeln('Матрица:');
  k:=1;l:=1;
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(100);
      write(a[i,j]:5);
      if a[k,l]<a[i,j] then begin k:=i;l:=j;end;    
    end;
    writeln;
  end;
  writeln('максимальный элемент:',a[k,l],' находится в строке ',k,' столбце ',l);
end.

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

Объявлены константы n=6 и m=7, которые определяют размер матрицы.
Объявлена переменная a типа array[1..n,1..m] of integer, которая будет представлять собой матрицу целых чисел размером n на m.
Объявлена переменная v типа array[1..m div 2] of integer, которая будет представлять собой временный массив для хранения полусуммы элементов строк матрицы.
Объявлены четыре переменные i, j, k, l типа integer, которые будут использоваться для индексации элементов матрицы.
Выполнена инициализация генератора случайных чисел с помощью функции randomize.
Выведена на экран информация о матрице с помощью цикла for и функции write.
В каждой итерации внутреннего цикла для текущей пары i, j вычисляется значение a[i,j] с помощью функции random, которая генерирует случайное число в диапазоне от 1 до 100.
С помощью условного оператора if выполняется сравнение a[k,l] с a[i,j], и если a[k,l] меньше a[i,j], то обновляются значения переменных k и l.
После завершения внутренних циклов выводится на экран новая строка с помощью функции writeln.
После завершения внешнего цикла выводится на экран информация о максимальном элементе матрицы, который был найден в ходе выполнения программы, с помощью функции writeln.
Значения переменных k и l используются для вывода информации о строке и столбце, в которых был найден максимальный элемент, с помощью функции writeln.