По матрице A[1.N, 1.N] построить матрицу B[1.N, 1.N]

program dynamic2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
Const
    M = 6;
    N = 7;
    g= 8;
 
    a:array[1..M, 1..N] of Byte = ((0,4,1,1,1,0,0),
                                   (0,1,1,0,1,7,1),
                                   (1,1,0,1,1,1,1),
                                   (0,1,0,6,1,1,1),
                                   (0,1,1,1,9,1,1),
                                   (1,1,7,0,1,0,1));
 
 
function maxr(u,x,y,z:integer):integer;
var max1:integer;
begin max1:=x; if max1<y then max1:=y; if max1<z then max1:=z; if max1<u then max1:=u;
maxr:=max1;
end;
 
var t:array[1..m,1..g] of integer; j,i, max:integer;
 
 
begin
 
If M>N then Max:=N else Max:=M;
    Randomize;
    For i:=1 to M do
    begin
         For j:=1 to N do
         begin
              Write(a[i,j],#32);
         end;
         Write(#13#10);
    end;
 
 
    for i:=1 to m do for j:=1 to g do
    begin
       t[1,j]:=0;
        t[i,8]:=0;
    end;
    for i:=2 to m do for j:=2 to n do
     t[i,j]:=maxr(a[i,j-1],t[i-1,j],t[i,j-1],t[i-1,j-1]);
    max:=1;
   { for i:=2 to m do for j:=2 to n do
    if t[i,j]>max then begin max:=t[i,j]; amax:=i; bmax:=j;end;  }
    For i:=1 to M do
    begin
         For j:=1 to g do
         begin
              Write(t[i,j],#32);
         end;
         Write(#13#10);
    end;
   readln;
end.