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

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

помогите составить программу, пожалуйста даны двумерные массивы X(5,6), Y(7,4), Z(5,7). составить программу для нахождения максимальных элементов матриц. результаты записать в массив P(3) для нахождения максимального элемента матрицы использовать подпрограмму

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

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

type
 TArray=array[1..10,1..10] of real;
var x,y,z:TArray;
 
function Max(var a:TArray;w,h:integer):Real; var i,j:integer; amax:real;
begin
 for i:=1 to h do for j:=1 to w do begin
  Readln(a[i,j]);
  if ((i=1) and (j=1)) or (amax<a[i,j])  then amax:=a[i,j];
 end;
 Max:=amax;
end;
 
begin
 Writeln(
  ' Max X ',Max(x,5,6),
   'Max Y ',Max(y,7,4),
   'Max Z ',Max(x,5,7)
 );
 Readln;
end.

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

В данном коде используется тип данных TArray, который представляет собой двумерный массив целых чисел. Переменные x, y и z этого типа содержат матрицы размером 10х10. Функция Max принимает на вход две переменные: w и h, которые указывают на количество строк и столбцов в матрице соответственно. Также в функцию передается переменная a, которая содержит матрицу. Внутри функции происходит итерация по всем элементам матрицы. Если текущий элемент является максимальным среди всех элементов, то его значение присваивается переменной amax. По завершении итерации функция возвращает значение переменной amax. В основной части кода происходит чтение значений из матрицы и вызов функции Max для каждой матрицы. Затем выводятся результаты на экран.