Составить процедуру для нахождения индексов максимального элемента квадратной матрицы - Turbo Pascal

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

помогите с задачей! Составить процедуру для нахождения индексов максимального элемента квадратной матрицы. Применить данную процедуру для двух заданных матриц C(n,n) и P(m,m).

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

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

uses crt;
const nmax=10;
type mtr=array[1..nmax,1..nmax] of integer;
procedure matrix(var a:mtr;var n:byte;c:char);
var i,j:byte;
begin
repeat
write('Введите размер матрицы ',c,' от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10+random(50);
    write(a[i,j]:3);
   end;
  writeln;
 end;
end;
procedure indexy(a:mtr;n:byte;var imx,jmx:byte);
var i,j:byte;
begin
imx:=1;
jmx:=1;
for i:=1 to n do
for j:=1 to n do
if a[i,j]>a[imx,jmx] then
 begin
  imx:=i;
  jmx:=j;
 end;
writeln('Максимальный элемент=',a[imx,jmx],' его индексы: [',imx,',',jmx,']');
end;
var c,p:mtr;
    n,m,a,b,d,e:byte;
begin
clrscr;
matrix(c,n,'C');
indexy(c,n,a,b);
matrix(p,m,'P');
indexy(p,m,d,e);
readln
end.

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

В начале кода подключается библиотека crt, которая обеспечивает функции ввода-вывода.
Затем определяется константа nmax, которая определяет максимальное значение размера матрицы.
Определяется тип данных mtr, который представляет собой массив целых чисел размером до nmax на nmax.
Создается процедура matrix, которая запрашивает у пользователя размер матрицы и заполняет ее случайными числами.
Внутри процедуры matrix происходит цикл, который повторяется до тех пор, пока введенный размер матрицы не будет соответствовать допустимому диапазону (от 2 до nmax).
Для каждого элемента матрицы выполняется цикл, который заполняет его случайным числом.
После завершения цикла выполняется команда writeln, чтобы вывести текущее значение переменной a.
Затем выполняется цикл, который ищет максимальное значение в матрице.
Если значение найдено, то обновляются переменные imx и jmx, которые хранят индексы этого значения.
Выводится сообщение с максимальным значением и его индексами.
В конце кода вызывается функция clrscr, чтобы очистить экран.
Затем вызывается процедура matrix с аргументами c, n и 'C'.
После этого вызывается процедура indexy с аргументами c, n, a, b, d и e.
Наконец, вызывается функция readln, чтобы дождаться нажатия клавиши перед завершением программы.