Pascal

[Kastiel11]

Подскажите пожалуйста как сделать чтобы цифры(процентные составляющие) были в секторах диаграммы, а не рядом

составить программу отображающую значения трех величин - две из них генерируются по закону случайных чисел в диапазоне от 10 до 40, а третья дополняет сумму двух первых до 100. Значения полученных трёх величин отобразить в виде цветной круговой диаграммы....

uses crt,graph;
var z:array [1..10] of integer;
n,i,x,y,r,a,b,s: integer;
st:string;
Begin
randomize;
clrscr;
n:=3;
for i:=1 to 2 do

z[i]:=random(40);
z[3]:=100-z[1]-z[2];

x:=0;
initgraph(x,y,'');
s:=0;
for i:=1 to n do
s:=s+z[i];
x:=getmaxX div 2;
y:=getmaxY div 2;
r:=150;
b:=round(360*z[1]/s);
setcolor(1);
setfillstyle(1,1);
pieslice(x,y,0,b,r);
str(100*z[1]/s:0:2,st);
outtextXY(x+round((r+20)*cos(pi*b/360)),y-round((r+20)*sin(pi*b/360)),st+'');
for i:=2 to n-1 do
begin
a:=round(360*z[i]/s)+b;
setcolor(i);
setfillstyle(1,i);
pieslice(x,y,a,b,r);
str(100*z[i]/s:0:2,st);
if (a<=90)or(a>=270) then
outtextXY(x+round((r+20)*cos(pi*(a+ b)/360)),y-round((r+20)*sin(pi*(a+b)/360)),st+'')
else
outtextXY(x+round((r+20)*cos(pi*(a+ b)/360))-40,y-round((r+20)*sin(pi*(a+b)/360)),st+'');
b:=a;
end;
setcolor(n);
setfillstyle(1,n);
pieslice(x,y,b,360,r);
str(100*z[n]/s:0:2,st);
outtextXY(x+round((r+20)*cos(pi*(36 0+b)/360)),y-round((r+20)*sin(pi*(360+b)/360)),st+'');
readln
end.