Графика, закрасить область Опции

[Client]

Привет всем!
Я нарисовал прямоугольник и разбил его на части, теперь надо закрасить эти части(хотя бы одну для примера).

uses crt,graph;
var
   a,b:integer;

procedure pryam;
begin
     rectangle(170,90,470,390);
     line(170,90,470,390);
     line(170,390,470,90);
     line(170,240,470,240);
     line(170,240,320,90);
     line(320,90,470,240);
     line(320,390,170,240);
     line(320,390,470,240);
     setfillstyle(2,6);       
     floodfill(175,100,0); //<-- вот тут не получается
end;

begin
     a:=detect;
     initgraph(a,b,'');
     pryam;
     readkey
end.

Помогите пожалуйста