Помогите нарисовать в паскале улыбающийся смайлик.

x:=50;y:=150;  TextOut(x-30,y-50,'смеётся');  Circle(x,y,30);  FloodFill(x,y,clYellow);  Circle(x+10,y-10,7);  Circle(x-10,y-10,7);  Arc(x,y,20,180,360);  Line(x-20,y,x+20,y);  FloodFill(x+1,y+1,clWhite);  Line(x-10,y,x-10,y+17);  Line(x,y,x,y+20);  Line(x+10,y,x+10,y+17);