Заполнить матрицу нулями и единицами в шахматном порядке - Turbo Pascal

Формулировка задачи:

Код к задаче: «Заполнить матрицу нулями и единицами в шахматном порядке - Turbo Pascal»

program zadacha;
var a:array [1..100,1..100] of byte;
n,i,j:byte;
begin
read(n);
for i:=1 to n do begin
  for j:=1 to n do begin
     a[i,j]:=(i+j{если хочешь чтобы единицы заменились на нули,а нули на единицы то сюда еще +1}) mod 2;
     write(' ',a[i,j]);
  end;
  writeln;
end;
end.