Написать программу для двумерных массивов

const
  nmax = 100;
 
var
  b: array [1..nmax, 1..nmax] of integer;
  c: array [1..nmax] of real;
  k, i, j, n, m, s: integer;
  sr: real;
 
begin
  Write('Введите N: ');
  readln(n);
  Write('Введите M: ');
  readln(m);
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      b[i, j] := -nmax div 2 + random(nmax);
      write(b[i, j]:5);
    end;
    writeln;
  end;
  k := 1;
  for j := 1 to m do
  begin
    s := 0;
    for i := 1 to n do 
      s := s + b[i, j];
    sr := s / n;
    c[k] := sr;
    inc(k);
  end;
  dec(k);
  writeln('Среднее арифметическое элементов каждого столбца матрицы:  ');
  for i := 1 to k do 
    write(c[i]:8:2);
  writeln;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      if b[i, j] > 0 then
        b[i, j] := 1;
      write(b[i, j]:5);
    end;
    writeln;
  end;
end.