Šachmatų lentos braižymas ir spalvinimas naudojant pascal

Sveiki, gavau tokia uzduoti su free pascal nubrezti sachamtu lenta, ir kas antra langeli (pvz. visus juodus) nuspalvinti skirtingomis spalvomis, bet pats piesimas turi uzimti tik  2 skirtingas line eilutes, o spalvinimas 2 skirtingas floodfill eilutes lenta nusibraiziau, bet spalvindamas susiduriu su tokia problema, kad su 1 floodfill eilute negaliu nuspalvinti daugiau nei vienos eilutes. Kaip supratau cia reiktu isivesti nauja kintamaji tai gal galetumete kas bent duoti uzuomena kaip tai reiktu padaryti.
Cia visas mano dabartinis darbas.
program Bevarde46;
uses graph,crt;
var x,y:integer;
begin
x:=detect;
initgraph (x,y,'c:\program files\fps\bgi');
setcolor(15);
for x:=1 to 9 do begin
line(240,x*40,560,x*40);
line(200+x*40,40,200+x*40,360);
end;
for x:=1 to 4 do begin
setfillstyle(1,x);
floodfill(205+x*80,347,15);
end;
for x:=1 to 4 do begin
setfillstyle(1,x+16);
floodfill(198+x*80,307,15) ;
end;
readln;
readln;

end.

Niekad taip kodo nekopijuok į forumą. Arba naudok code tag'ą arba kodą įdėk į kokį pastebin, nes kitaip dingsta visas išlygiavimas.
O dėl tavo problemos, tai jei su vienu ciklu gali nuspalvinti vieną eilutę, tai su ciklu cikle turėtų pavykti nuspalvinti visą lentą.