круговая диаграмма в pascal abc

uses crt, graphABC;
const nmax=10;
var n,i,xc,yc,r,a,b:integer;
    nm:array[1..nmax] of string[15];//масив наименований
    y:array[1..nmax] of real;//массив количеств
    cv:array[1..nmax] of integer; //массив цветов
    s:real;
    st:string;
begin
randomize;
repeat
write('Количество наименований до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Введите наименования и их количество');
s:=0;
for i:=1 to n do
 begin
  write('наименование ',i,': ');
  read(nm[i]);
  write('количество=');
  read(y[i]);
  s:=s+y[i];
 end;
for i:=1 to n do
y[i]:=y[i]*100/s; //в проценты
hidecursor;
clearwindow;
xc:=windowwidth div 2-50;
yc:=windowheight div 2;
textout(xc-80,20,'Количество по наименованиям в %');
b:=round(360*y[1]/100);
r:=150;
cv[1]:=clrandom;
setbrushcolor(cv[1]);
Pie(xc,yc,r,0,b);
for i:=2 to n-1 do
 begin
  cv[i]:=clrandom;
  a:=round(360*y[i]/100)+b;
  setbrushcolor(cv[i]);
  Pie(xc,yc,r,b,a);
  b:=a;
 end;
cv[n]:=clrandom;
setbrushcolor(cv[n]);
Pie(xc,yc,r,b,360);
for i:=1 to n do
 begin
  setbrushcolor(cv[i]);
  rectangle(xc+180,30+i*30,xc+210,30+i*30+20);
  str(y[i]:0:2,st);
  setbrushstyle(bsClear);
  textout(xc+220,30+i*30+5,nm[i]+'-'+st);
 end;
end.