Стиль заполнения фигуры Опции

[Sensitive]

Задача такая:
Постоить фигуру и изменять стиль заполнения и цвет контурных линий случайным образом.
Фигуру построила, а как изменять цвет линий и стиль заполнения не могу разобраться...

uses crt,Graph;
var a:array[1..4] of PointType;
    i:byte;
Procedure treug;
const x:array[1..3] of integer=(300,620,20);
      y:array[1..3] of integer=(100,400,400);
begin
for i:=1 to 3 do begin
a[i].x:=x[i];
a[i].y:=y[i];
end;
a[4]:=a[1];
drawpoly(4,a);
end;

Procedure treug1;
const x:array[1..3] of integer=(300,340,260);
      y:array[1..3] of integer=(150,190,190);
begin
for i:=1 to 3 do begin
a[i].x:=x[i];
a[i].y:=y[i];
end;
a[4]:=a[1];
drawpoly(4,a);
end;

Procedure treug2;
const x:array[1..3] of integer=(400,440,360);
      y:array[1..3] of integer=(310,350,350);
begin
for i:=1 to 3 do begin
a[i].x:=x[i];
a[i].y:=y[i];
end;
a[4]:=a[1];
drawpoly(4,a);
end;

Procedure treug3;
const x:array[1..3] of integer=(200,240,160);
      y:array[1..3] of integer=(310,350,350);
begin
for i:=1 to 3 do begin
a[i].x:=x[i];
a[i].y:=y[i];
end;
a[4]:=a[1];
drawpoly(4,a);
end;
begin
init;{инициализация граф. режима}
treug;
treug1;
treug2;
treug3;
readln;
end.

Заполнение должно производиться как показано на рисунке.(рисунок прилагается). Помогите пожалуйста.