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.