Произвести заданные действия с матрицами

program Matrixes;
 
const
    N = 10;
    M = 10;
 
type
    mat = array [1..N, 1..M] of integer;
 
procedure output(matr: mat; max: Integer);
var
    i, j: Integer;
begin
    for i:=1 to N do
    begin
        for j:=1 to M do
        begin
            if (j=1) or (j=M) then
                matr[i, j]:=max;
            write(matr[i, j]:4);
        end;
        writeln;
    end;
    writeln;
end;
    
function maxA(a: mat): Integer;
var
    i, j: Integer;
begin
    maxA:=0;
    for i:=1 to N do
        for j:=1 to M do
            if a[i, j]>maxA then
                maxA:=a[i, j];
    output(a, maxA);
end;
 
function maxB(b: mat): Integer;
var
    i, j: Integer;
begin
    maxB:=0;
    for i:=1 to N do
        for j:=1 to M do
            if b[i, j]>maxB then
                maxB:=b[i, j];
    output(b, maxB);
end;
 
procedure MatInit;
var
    a, b: array [1..N, 1..M] of integer;
    i, j: Integer;
begin
    randomize;
    for i:=1 to N do
    begin
        for j:=1 to M do
            a[i, j]:=random(100)+1;
    end;
    for i:=1 to N do
    begin
        for j:=1 to M do
            b[i, j]:=random(100)+1;
    end;
    maxA(a);
    maxB(b);
end;
 
begin
    MatInit;
    readln();
end.