Составить процедуру графического построения круговой диаграммы

uses crt,graph;
const nmax=20;
type mas=array[1..nmax] of byte;
var x,y:integer;
procedure Diagr(z:mas;n:byte);
var i:byte;
    s,a,b,r:integer;
begin
s:=0;
for i:=1 to n do
s:=s+z[i];
r:=150;
b:=round(360*z[1]/s);
Setfillstyle(1,1);
PieSlice(x,y,0,b,r);
for i:=2 to n-1 do
 begin
   a:=round(360*z[i]/s)+b;
   Setfillstyle(1,i);
   PieSlice(x,y,a,b,r);
   b:=a;
 end;
Setfillstyle(1,n);
PieSlice(x,y,b,360,r);
end;
Var z:mas;
    n,i: integer;
Begin
clrscr;
repeat
write('Kol. pokazatelej do ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Vvedite znachenia >0');
for i:=1 to n do
 begin
  repeat
   write('z[',i,']=');
   readln(z[i]);
  until z[i] in [1..255];
 end;
x:=0;
initgraph(x,y,'..\BGI');{пропишите полный путь в папке BGI, 
чтобы использовать русские растровые шрифты}
x:=getmaxX div 2;
y:=getmaxY div 2;
settextstyle(3,0,3);
outtextXY(80,20,'Программа построения круговой диаграммы');
outtextXY(80,50,'       Cоставил Иванов И.И.');
Diagr(z,n);
readln;
end.