Массив имеет другое количество размерностей - Pascal ABC

program tm;
var
  a,b:array [1..10,1..10] of integer;
  z,x,c,v:array [1..10] of integer;
  Max,M, N, i, j:Integer;
  count,s:Integer;
begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);

 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;
 
 for  j:=1 to N do
  begin
   writeln(j,': ');
   Max:=a[1,j];
   for i:=2 to M do
    begin
     if a[i,j]>Max then Max:=a[i,j];
    end;
   writeln(Max);
  end;
      writeln;
   
    for i:=1 to M do 
    writeln;
    for j:=1 to M do begin
        Max := a[1,j];
        for i:=2 to N do
            if a[i,j] > Max then
                Max := a[i,j];
        write('  ',Max:3,'  ');
          end;
    writeln;
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
b[i,j]:=a[i,j]*Max;
write(b[i,j]:5);
end;
end;
begin
writeln;
z[i]:=a[1,j];
writeln(z[i]);
end;
begin
count := 0;
if z[i] > 0 then
            count := count + 1;
            writeln(count:5);
            end;
writeln;
s:=0;
for i:=1 to N do
if z[i]>0 then
begin
s:=s+a[ i ]
end;
writeln (s:5);
readln;
 
begin
writeln;
x[i]:=a[2,j];
writeln(x[i]);
end;
begin
count := 0;
if x[i] > 0 then
            count := count + 1;
            writeln(count:5);
            end;
writeln;
s:=0;
for i:=1 to N do
if x[i]>0 then
begin
s:=s+a[ i ]
end;
writeln (s:5);
readln;
 
begin
writeln;
c[i]:=a[3,j];
writeln(c[i]);
end;
begin
count := 0;
if c[i] > 0 then
            count := count + 1;
            writeln(count:5);
            end;
writeln;
s:=0;
for i:=1 to N do
if c[i]>0 then
begin
s:=s+a[ i ]
end;
writeln (s:5);
readln;
 
begin
writeln;
v[i]:=a[4,j];
writeln(v[i]);
end;
begin
count := 0;
if v[i] > 0 then
            count := count + 1;
            writeln(count:5);
            end;
writeln;
s:=0;
for i:=1 to N do
if v[i]>0 then
begin
s:=s+a[ i ]
end;
writeln (s:5);
readln;
 
end.