Сохранить все нулевые элементы, расположенные в шахматном порядке, начиная со 2-го элемента 1-й строки

Function PutTab(y,x,value: integer): boolean;
Function GetTab(x,y: integer): integer;
Var arrp: array[1 ..XM*XM div 2] of integer;
Function Newlndex(y, x : integer): integer;
var i: integer;
begin Newlndex:=((y-1)*XM+x) div 2); end;
Function PutTab(y,x,value: integer): boolean;
begin
if NOT ((x mod 2<>0) and (y mod 2<>0)) or
NOT ((x mod 2=0) and (y njqd 2=0)) tjien begin
arrp[Newlndex(y,x)]:=value; PutTab:=true; end
else PutTab:=false;
end;
Function GetTab(x,y: integer): integer;
begin
if ((x mod 2<>0) and (y mod 2<>0)) or
((x mod 2=0) and (y mod 2=0)) then GetTab:=0
else GetTab:=arrp[Newlndex(y,x)];
end;
end.

const n = 7; m = 6; //размер матрицы
var i, j: byte;
    a: array [1..n, 1..m] of integer;
begin
  randomize;
  writeln('Source array:');
  for i := 1 to n do
    begin
      for j := 1 to m do
        begin
          a[i, j] := -9 + random(19);
          write(a[i, j]:3)
        end;
      writeln
    end;
  writeln('Zero elements in chess-order :');
  for i := 1 to n do
    begin
      for j := 1 to m do
        if odd(i + j) and (a[i, j] = 0)
          then write(a[i, j]:3)
          else write('-':3);
      writeln
    end;
  readln
end.