В матрицах А(9,4) и Р(4,2) найти минимальный элемент 4-й строки матрицы. Использовать функции - Pascal

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

Элементы двумерных массивов выбрать произвольно. Вывести их на печать в формате и с заголовком. Для решения данной задачи использовать подпрограмму типа Function. В матрицах А(9,4) и Р(4,2) найти минимальный элемент 4-й строки матрицы.

Решение задачи: «В матрицах А(9,4) и Р(4,2) найти минимальный элемент 4-й строки матрицы. Использовать функции»

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

Type matr=array[1..9,1..4] of integer;
A,P:matr;
////
Function Max(A:matr;m:byte):integer;
Var j,jmax,n:byte;
Begin
    jmax:=1;n:=4;
    For j:=2 to m do
     if A[n,j]>A[n,jmax] then jmax:=j;
    Max:=A[n,jmax];
End;
////
writeln('Максимум 4-ой строки,матрицы A  = ',Max(A,4));
writeln('Максимум 4-ой строки,матрицы P  = ',Max(A,2));
///

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

Объявляются две матрицы типа матрица (matr) - A и P, размером 9x4 и 4x2 соответственно.
Задается функция Max, которая принимает матрицу A и номер строки m в качестве параметров.
Внутри функции объявляются три переменные: jmax, j и n.
Переменная jmax инициализируется значением 1, а переменная n - значением 4.
Цикл for выполняется для каждой строки от 2 до m.
Внутри цикла сравнивается каждый элемент текущей строки матрицы A с элементом по индексу (n,jmax). Если текущий элемент больше, то обновляется значение переменной jmax.
После выполнения цикла, функция возвращает максимальное значение, которое хранится в переменной Max.
Вызывается функция Max с аргументами A и 4, и результат выводится на экран.
Вызывается функция Max с аргументами A и 2, и результат выводится на экран.