Написать программу формирующую двумерный массив размером…

Видимо имеется ввиду выводящий максимальны элемент этого массива В данном примере матрица формируется при помощи случайных чисел program MatrixMax; Uses Crt; type matrix=array[1… 4,1… 4] of real; var m: matrix; max: real; {Порождение матрицы случайным образом}procedure Auto; var i,j: integer; begin randomize; for i: =1 to 4 do begin for j: =1 to 4 do begin m[i,j]: =25+random (21); end; end; end; {Вывод матрицы на экран} procedure PrintMatrix (mas: matrix); var j,k: integer; begin for k: =1 to 4 do begin for j: =1 to 4 do begin write (mas[k,j]: 7:2); end; writeln; end; end; {Нахождение максимального элемента}procedure Мax; var i,j: integer; begin max: =m[1,1] for i: =1 to 4 do begin for j: =1 to 4 do begin if (max