Дана матрица W[10,15]. Составить программу вычисления среднеарифметического

Program p;
 Const 
        N=10;
        M=15;
 Type
        Mas1=array[1..n,1..m] of integer;
 var
        a: mas1;
        k,k1,sum,max: integer;
        srednar:real;
 BEGIN
  randomize;
  max:=0;
  sum:=0;
  for k1:=1 to n do
    begin
      for k:=1 to m do
        begin
          a[k1,k]:=random(99);
          write(a[k1,k]:4);
          sum:=sum+a[k1,k];
        end;
      writeln;
    end;
 srednar:=sum/n/m;
   for k1:=1 to n do
      for k:=1 to m do
        if max<abs(a[k1,k]-max) then
        max:=abs(a[k1,k]-max);
 Writeln('srednar = ',srednar:5:2);
 Writeln('max = ',max);
END.

Program arr;
 Const 
        N=10;
 Type
        Mas1=array[1..n,1..n] of integer;
        Mas2=array[1..n] of integer;
 var
        a,c: mas2;
        b: mas1;
        k,k1,sum,kol: integer;
 BEGIN
  randomize;
  for k1:=1 to n do
    begin
      for k:=1 to n do
        begin
          b[k1,k]:=40-random(99);
          write(b[k1,k]:4);
        end;
      writeln;
    end;
  for k:=1 to n do
    begin
      sum:=0;
      kol:=0;
      for k1:=1 to n do
         if b[k1,k]>0 then
            begin
              sum:=sum+b[k1,k];
              kol:=kol+1
            end;
      a[k]:=sum;
      c[k]:=kol;
    end;
  writeln;
  writeln('Массив 2');  
  for k1:=1 to n do
      write(a[k1]:4);
  Writeln;
  writeln;
  writeln('Массив 3');  
  for k1:=1 to n do
      write(c[k1]:4);
END.