Вывести круговую диаграмму, отражающую товарооборот (в процентах) книжного магазина

uses crt, Graph;
const
x:array[1..4] of string=('Knigi','Zurnaly','Kanctovary','Proctee');
var dr,mode,i,xc,yc,r:integer;
    y:array[1..4] of real;
    s:real;
    a,b:longint;
    st:string;
begin
clrscr;
s:=0;
writeln('Vvedite tovarooborot po vidam:');
for i:=1 to 4 do
 begin
  write(x[i],'=');
  readln(y[i]);
  s:=s+y[i];
 end;
for i:=1 to 4 do
y[i]:=y[i]*100/s;
dr:=detect;
initgraph(dr,mode,'');
xc:=GetMaxX div 2;
yc:=GetMaxY div 2;
outtextxy(Xc-80,20,'Tovarooborot po vidam, %');
b:=round(360*y[1]/100);
r:=150;
setcolor(10);
setfillstyle(1,11);
pieslice(xc,yc,0,b,r);
for i:=2 to 3 do
 begin
  a:=round(360*y[i]/100)+b;
  setcolor(10+i);
  setfillstyle(1,10+i);
  pieslice(xc,yc,a,b,r);
  b:=a;
 end;
setcolor(14);
setfillstyle(1,14);
pieslice(xc,yc,b,360,r);
for i:=1 to 4 do
 begin
  setcolor(i+10);
  setfillstyle(1,i+10);
  bar(xc+150,i*40,xc+180,i*40+20);
  setcolor(15);
  str(y[i]:0:2,st);
  outtextXY(xc+190,i*40+5,x[i]+'-'+st);
 end;
readkey;
end.

uses GraphABC;
const n=4;
      x:array[1..n] of string=('Книги','Журналы','Канцтовары','Прочее');
      cl:array[1..n] of Color=(clRed,clGreen,clBlue,clPurple);
var i,xc,yc,r:integer;
    y:array[1..n] of real;
    s:real;
    a,b:integer;
    st:string;
begin
s:=0;
writeln('Введите товарооборот по видам:');
for i:=1 to n do
 begin
  writeln(x[i],'=');
  readln(y[i]);
  s:=s+y[i];
 end;
clearwindow; 
for i:=1 to n do
y[i]:=y[i]*100/s;
xc:=windowwidth div 2;
yc:=windowheight div 2;
textout(xc-80,20,'Товарооборот по видам, %');
b:=round(360*y[1]/100);
r:=150;
setpencolor(cl[1]);
setbrushcolor(cl[1]);
pie(xc,yc,r,0,b);
for i:=2 to n-1 do
 begin
  a:=round(360*y[i]/100)+b;
  setpencolor(cl[i]);
  setbrushcolor(cl[i]);
  pie(xc,yc,r,a,b);
  b:=a;
 end;
setpencolor(cl[n]);
setbrushcolor(cl[n]);
pie(xc,yc,r,b,360);
for i:=1 to n do
 begin
  setpencolor(cl[i]);
  setbrushcolor(cl[i]);
  setbrushstyle(bsSolid);
  rectangle(xc+150,i*40,xc+180,i*40+20);
  str(y[i]:0:2,st);
  setbrushstyle(bsClear);
  textout(xc+190,i*40+5,x[i]+'-'+st);
 end; 
end.