Построить секторную диаграмму для данных чисел

uses Graph;
const n=5;
var d,m,x,y,r,x1,y1,i,a,b,s: integer;
    ar:array[1..n] of integer;
    st:string;
begin
clrscr;
randomize;
for i:=1 to n do
ar[i]:=10+random(20);
initgraph(d,m,'');
s:=0;
for i:=1 to n do
s:=s+ar[i];
x:=getmaxX div 2;
y:=getmaxY div 2;
r:=150;
{первый сектор}
b:=round(360*ar[1]/s);
Setfillstyle(1,1);
SetColor(1);
PieSlice(x,y,0,b,r);
str(ar[1],st);
x1:=x+round(r*cos(pi*b/360))+30;
y1:=y-round(r*sin(pi*b/360))-20;
outtextXY(x1,y1,st);
{со 2 по n-1}
for i:=2 to n-1 do
 begin
   a:=round(360*ar[i]/s)+b;
   Setfillstyle(1,i);
   SetColor(i);
   PieSlice(x,y,a,b,r);
   x1:=x+round(r*cos(pi*(a+b)/360));
   if x1>=x then x1:=x1+30 else x1:=x1-50;
   y1:=y-round(r*sin(pi*(a+b)/360));
   if y1<x then y1:=y1-20 else y1:=y1+20;
   str(ar[i],st);
   outtextXY(x1,y1,st);
   b:=a;
 end;
{последний сектор}
Setfillstyle(1,n);
SetColor(n);
PieSlice(x,y,b,360,r);
x1:=x+round(r*cos(pi*(360+b)/360));
if x1>=x then x1:=x1+30 else x1:=x1-50;
y1:=y-round(r*sin(pi*(360+b)/360));
if y1<x then y1:=y1-20 else y1:=y1+20;
str(ar[n],st);
outtextXY(x1,y1,st);
readln
End.