круговая диаграмма в паскале

[vbchristy46]

задание-нарисовать круговую диаграмму
код у меня есть... в диаграмме только одна "доля разреза", мне нужна ещё одна ...не знаю как сделать...

program GraphShabl;
uses Graph;
const
z:array[1..10] of integer = (5,10,15,20,15,10,5,5,10,15);
var
GraphDriver,
GraphMode,x,y,r,i,a,b,s:integer;
begin
GraphDriver:=detect;
InitGraph(GraphDriver,GraphMode,'..\BGI');
s:=0;
for i:=1 to 10 do
s:=s+z[i];
x:=getmaxX div 2;
y:=getmaxY div 2;
r:=150;
b:=round(360*z[1]/s);
Setfillstyle(1,1);
PieSlice(x,y,0,b,r);
for i:=2 to 9 do
begin
a:=round(360*z[i]/s)+b;
Setfillstyle(1,i);
end;
PieSlice(x,y,b,360,r);
readln;

CloseGraph;
end.