Написать программу формирующую...

Написать программу формирующую двумерный массив размером 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.