Найти количество нулевых элементов массива, стоящих на четных и нечетных местах соответственно

var 
  mas:array[1..100,1..100] of integer;
  i,j:integer;
  n,m,ch,nch:integer;
begin
 ch:=0;nch:=0;
 repeat
  write('Введите n:');read(n);
 until n in [1..100];
 repeat
  write('Введите m:');read(m);
 until m in [1..100];
 
 for i:=1 to n do
 begin
  for j:=1 to m do
  begin
   write('mas[',i,',',j,'] = ');read(mas[i,j]);
  end;
 end;
 
 writeln;
 
 for i:=1 to n do
 begin
  for j:=1 to m do
   write(mas[i,j]:3);
 writeln;
 end;
 
 writeln;
 
 for i:=1 to n do
 begin
  for j:=1 to m do 
  begin
   if mas[i,j]=0 then
   begin
    if j mod 2 = 0 then
     inc(ch)
    else
     inc(nch);
   end;
  end;
 end;
 
 write('На четных местах - ',ch,',   на нечетных - ',nch);
end.

var 
  mas: array [1..100, 1..100] of integer;
  i, j: integer;
  n, m, ch, nch: integer;
begin
  ch:=0; nch:=0;
  repeat
    write('Введите n:'); read(n)
  until n in [1..100];
  repeat
    write('Введите m:'); read(m)
  until m in [1..100];
 
  for i:=1 to n do
    for j:=1 to m do
      begin
        write('mas[',i,',',j,'] = '); read(mas[i,j])
      end;
 
  writeln;
 
  for i:=1 to n do
    begin
      for j:=1 to m do write(mas[i,j]:3);
      writeln
    end;
 
  writeln;
 
  for i:=1 to n do
    for j:=1 to m do 
      if mas[i,j]=0 
        then if j mod 2 = 0 
          then inc(ch)
          else inc(nch);
 
  write('На четных местах - ', ch, ', на нечетных - ', nch)
end.