Помогите решить пожалуйстаааааа :(

Составьте программу заполнения массива А[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;BEGINfst = 0; for i:=0 to N do begincur = 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.