Матрицы массивы не могу понять

const
    NN = 10;
    MM = 10;
type
    T = integer; 
    Matrix = array[1..NN, 1..MM] of T; 
    
 
Procedure ReadMatr(var A:Matrix; var n,m:word );
var i, j: word;
begin
    repeat
        write('Введите количество строк: '); readln(N)
    until (N>0) and (N<=NN); 
    repeat
        write('Введите количество столбцов: '); readln(m)
    until (M>0) and (M<=MM);
    For i:=1 to n do begin
        For j:=1 to m do begin
            write('A[',i,j,']= '); readln(A[i,j])
        end 
    end
end; 
 
 
Procedure PrintMatr(A:Matrix; n,m:word);
Var i, j: word;
begin
    For i:=1 to n do begin
        For j:=1 to m do write(A[i,j],' ');
        writeln
    end;
end;
Procedure maxB(A:Matrix; n,m:word);
var max,mm,nn,i,j: word;
begin
    Readmatr(a,n,m);
    PrintMatr(a,n,m);
begin
max:=a[1,1];
for i:=1 to nn do
for j:=1 to mm do
    if a[i,j]>max then max:=a[i,j];
writeln('max=',max);
end;

uses crt;
const n=4;
type mas=array[1..n] of integer;
     matr=array[1..n] of mas;
procedure Obmen(var m:mas);
var i:byte;
    x:integer;
begin
x:=m[1];m[1]:=m[n];m[n]:=x;
end;
function Max(m:matr):integer;
var i,j:byte;
    mx:integer;
begin
mx:=m[1,1];
for i:=1 to n do
for j:=1 to n do
if m[i,j]>mx then mx:=m[i,j];
Max:=mx;
end;
var a,b1:mas;
    b:matr;
    q:integer;
    i,j:byte;
begin
clrscr;
writeln('Введите элементы массива А:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Массив А:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
writeln('Матрица В:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if i=j then b[i,j]:=i+j
    else b[i,j]:=i-j;
    write(b[i,j]:4);
   end;
  writeln;
 end;
writeln;
writeln('Максимальный элемент матрицы=',Max(b));
write('Введите число для сравнения с макимумом q=');
readln(q);
if Max(b)>q then
 begin
  writeln('Макимальный элемент больше ',q);
  b1:=b[2];
  Obmen(b1);
 end
else
 begin
  writeln('Макимальный элемент не больше ',q);
  b1:=a;
  Obmen(b1);
 end;
writeln('Массив B1:');
for i:=1 to n do
write(b1[i],' ');
readln
end.