PascalAbc нарисовать шахматное поле, подскажите какие нужны команды

uses     graphABC; var      i,j: integer; begin     setWindowWidth(500);     setWindowHeight(500);     rectangle(30,30,470,470);     for i:=0 to 8 do     begin         line(50,50+i*50,50+8*50,50+i*50);         line(50+i*50,50,50+i*50,50+8*50);   end;   for i:=1 to 8 do       for j:=1 to 8 do            if odd(i+j) then                floodFill(i*50+1,j*50+1,clBlack);   for i:=0 to 7 do   begin       TextOut(70+i*50,453,chr(97+i));       TextOut(37,70+i*50,chr(56-i));   end; end.