Графика в Паскаль

[prooo]

Нужно нарисовать и разукрасить Дошел до определенного момента, дальше не знаю как

uses Graph;
var grDriver:integer;
grMode:integer;
ErrCode:integer;
begin
grDriver:=detect;
InitGraph(grDriver,grMode,'');
errCode:=graphResult;
if errCode=grok then
begin
setcolor(yellow);
arc(600,150,0,180,50);
// arc(675,325,0,135,50);
circle(675,325,50);
circle(525,325,50);
circle(775,425,50);
circle(425,425,50);
//arc(775,425,90,180,50);
// arc(425,425,135,315,50);
line(550,150,389,389);
line(650,150,810,389);
setfillstyle(solidfill,yellow);
setcolor(black);
circle(600,250,50);
readln; closegraph;
end
else writeln('Oshibka', grapherrormsg(errcode));
end.