Как сделать так, чтобы программа находила разность между максимальными этих 2 матриц - Turbo Pascal

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

дана функция, которая находит максимальный элемент матрицы, в основном теле ползователь рандомом задает 2 матрицы, как сделать так, чтобы программа находила разность между максимальными этих 2 матриц и выводила на экран

Решение задачи: «Как сделать так, чтобы программа находила разность между максимальными этих 2 матриц»

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

type mtr=array[1..10,1..10] of integer;
function max(a:mtr;m,n:integer):integer;
var i,j,m:integer;
begin
m:=a[1,1];
for i:=1 to m do
for j:=1 to n do
if a[i,j]>m then m:=a[i,j];
max:=m;
end;
..................
write(abs(max(a,m1,n1)-max(b,m2,n2));

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

В данном коде используется функция max, которая принимает три аргумента: матрицу a, два индекса m и n. Функция находит максимальное значение в указанной ячейке матрицы a и сохраняет его в переменной max. Затем, в цикле, происходит сравнение значений матрицы a с максимальным значением. Если значение в текущей ячейке больше максимального, то max обновляется. В конце функция возвращает найденное максимальное значение. Далее, в основной части кода, происходит вызов функции max для двух матриц a и b. Результат выводится на экран с помощью функции write. В данном случае выводится абсолютная разница между максимальными значениями двух матриц.