Написать программу формирующую двумерный массив размером 4х4 и выводящую на экран максимальное количество элементов этого массива

 Видимо имеется ввиду выводящий максимальны элемент этого массива

 В данном примере матрица формируется при помощи случайных чисел 

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<m[i,j]) then max:=m[i,j];                     end;             end;end;

 begin

      Clrscr;

       Auto;

       PrintMatrix;

       Max;

        writeln;

        writeln('Максимальный элемент матрицы: ',max);

 end.