Массив A(m,n) преобразовать в массив C(m,n) в котором все элементы равные 1 заменяются на 0

const
 n = 4;
 m = 4;
type
 Matr = array[1..n, 1..m] of integer;
var
 arr1, arr2: Matr;
 
procedure Matrix(var arr: Matr);
var
 i, j: integer;
begin
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      write('arr[', i, ', ', j, '] = ');
      readln(arr[i, j]);
     end;
   end;
 writeln('Матрица А: '); 
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      arr2[i, j]:=arr[i, j];
      write(arr[i, j]:4);
     end;
    writeln;
   end;
end;
 
procedure NewMatrix(var arr2: Matr; arr: Matr);
var
 i, j, k, l: integer;
begin
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      if arr[i, j] = 1 then
       arr2[i, j]:=0;
     end;
   end;
  for i:=1 to n do
   begin
     for j:=1 to m do
      write(arr2[i, j]:4);
    writeln;
   end;
end;
 
procedure Operations(arr: Matr);
var
 i, j, cnt1, cnt2, cnt3: integer;
begin
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      if arr[i, j] < 0 then inc(cnt1);
      if arr[i, j] > 0 then inc(cnt2);
      if (arr[i, j] mod 2 <> 0) then inc(cnt3);
     end;
   end;
 writeln('Кол-во отрицательных: ', cnt1);
 writeln('Кол-во положительных: ', cnt2);
 writeln('Кол-во нечетных: ', cnt3);
end;
 
begin
 Matrix(arr1);
 writeln('Матрица В: ');
 NewMatrix(arr2, arr1);
 Operations(arr2);
end.

var
  A, C: Array[1..10, 1..10] of Integer;
  i, j: Integer;
  negative, positive, even odd_: Integer; // отрицательные/положительные/четные/нечетные
begin
  { тут вводишь массив А }
  negative := 0;
  positive := 0;
  even := 0;
  odd_ := 0;
 
  for i:=1 to 10 do begin
    for j:=1 to 10 do begin
      if(A[i, j] = 1) then
        C[i, j] := 0
      else
        C[i, j] := A[i, j];
 
      if(A[i, j] > 0) then
        inc(positive);
 
      if(A[i, j] < 0) then
        inc(negative);
 
      if(A[i, j] mod 2 = 0) then
        inc(even)
      else
        inc(odd_);
    end;
  end;
 
  { тут выводишь массив C, и переменные negative, positive, even odd_ }

const
  n = 5;
var
  MatrA, MatrB: array[1..n, 1..n] of integer;
  CountNeg, CountPos, CountOdd, CountNOdd: integer;
  i, j: byte;
begin
  randomize;
  writeln('Массив исходный: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      MatrA[i, j]:=random(5);
      write(MatrA[i, j]:4);
      if MatrA[i, j] = 1 then MatrB[i, j]:=0
        else MatrB[i, j]:=MatrA[i, j];
    end;
    writeln;
  end;
  writeln('Полученный массив: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      write(MatrB[i, j]:4);
      if MatrB[i, j] > 0 then inc(CountPos);
      if MatrB[i, j] < 0 then inc(CountNeg);
      if odd(MatrB[i, j]) then inc(CountOdd)
        else inc(CountNOdd);
    end;
    writeln;
  end;
  writeln('Кол-во положительных: ', CountPos);
  writeln('Кол-во отрицательных: ', CountNeg);
  writeln('Кол-во четных: ', CountNOdd);
  writeln('Кол-во нечетных: ', CountOdd);
end.