Решить : ( составьте программу заполнения массива а[n,n] нулями и единицами в шахматном порядке.

Program ayaya;

uses sysutils;

const N = 1000;
var YArr: array [0..N] of array [0..N] of integer;
i, j: integer;
fst, cur: boolean;

BEGIN
fst = 0;
 for i:=0 to N do begin
cur = fst;
  for j:=0 to N begin
   if(cur) then YArr[i, j] = 0 else YArr[i, j] = 1;
   cur = not cur;
  end;
 fst = not fst;
 end;
END.