Графика. Нарисовать гроздь винограда в вазе

uses graphABC;
var i,j,x,y: integer;
begin
setwindowsize(500,500);
setpenwidth(6);
setpencolor(claqua);
arc(220,120,200,180,0);
arc(220,-100,300,227,-47);
floodfill(220,300,claqua);
setbrushcolor(claqua);
rectangle(200,300,240,450);
ellipse(150,430,300,480);
setpenwidth(1);
setbrushcolor(clblue);
ellipse(170,275,270,315);
setpencolor(cllime);
setbrushcolor(clgreen);
for i:=1 to 10 do
    circle(random(50)+100,random(100)+100,random(30)+10);
setpencolor(clfuchsia);
setbrushcolor(clpurple);
y:=250;
for j:=1 to 3 do
    begin
    x:=130;
    for i:=j to 5 do
        begin
        circle(x,y,30);
        x:=x+50;
        end;
    y:=y-50;
    end;
y:=225;
for j:=1 to 3 do
    begin
    x:=155;
    for i:=j to 4 do
        begin
        circle(x,y,30);
        x:=x+50;
        end;
    y:=y-40;
    end;
end.