Определить максимальный и минимальный элемент матрицы

program minmaxmatrix;
uses crt;
const n = 5;
    m = 3;
var matrix: array[1..n, 1..m] of integer;
    i, j, max, min: integer;
Begin
 
    ClrScr;
    randomize;
    
    max := 0;
    min := 15;
    
    for i:=1 to n do
    begin
        for j:=1 to m do
        begin
            matrix[i, j] := random(15);
            write(matrix[i, j]:5);
        end;
        writeln;
    end;
    
    for i:=1 to n do
    begin
        for j:=1 to m do
        begin
            if(max <= matrix[i, j]) then 
                max := matrix[i, j];
            
            if(min >= matrix[i, j]) then
                min := matrix[i, j];
        end;
    end;
    
    writeln('Максимальный элемент: ', max);
    writeln('Минимальный элемент: ', min);
    
    readln;
end.