графика Опции

[Spaun]

Нарисовать 5 вложенных друг в друга ромбов и закрасить каждый из ни разным цветом.
Вот что есть:

program lab;
uses crt,graph;

var gd,gm:integer;
    x1,x2,x3,y1,y2,y3,i:integer;
begin
     gd:=VGA;
     gm:=VGAhi;
     initgraph (gd,gm,'C:\tp7\tp7\BGI');
if graphresult = grOk then
begin
x1:=320;
x2:=520;
x3:=120;
y1:=10;
y2:=210;
y3:=410;
for i:=1 to 5 do
begin
line (x1,y1,x2,y2);
line (x3,y2,x1,y1);
line (x2,y2,x1,y3);
line (x1,y3,x3,y2);
y1:=y1+20;
y3:=y3-20;
x3:=x3+20;
x2:=x2-20;
SetColor(i);
SetFillStyle(2,i);
end;

readln;
closegraph;
end;
end.

подскажите как залить эти ромбы.