Помогите, очень нужно. Pascal ABC

Нужно дописать это в Pascal модуль Grah ABC так, чтобы было похоже на рисунок.
Вот начало, сама уже не вывожу:

uses graphABC;
var x,y:integer;
begin
SetBrushColor(clAzure);
Rectangle(0,291,640,0);
SetBrushColor(clYellowGreen);
Rectangle(0,435,640,291);
SetBrushColor(clBisque);
Ellipse(200,210,490,360);
Circle(198,225,84);
Circle(480,249,24);
SetBrushColor(clSnow);
Circle(147,220,24);
Circle(220,221,24);
SetBrushColor(clBlack);
Circle(215,223,18);
Circle(143,223,18);
SetBrushColor(clSnow);
Circle(223,221,6);
Circle(151,223,6);