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.