Линии в паскаль

[Кинива]

Здравствуйте,можете помочь....круги смог нарисовать,а лини на голове не выходят... помогите сделать уши над головой

Program oval;
uses GraphABC;
var x,y,r1,r2,r3,r4,r5,r6,r7:integer;
begin
x:=WindowWidth div 2;
y:=WindowHeight div 2;
r1:=50;
r2:=80;
r3:=50;
r4:=70;
SetBrushColor(clGray);
Circle(x,y-r1,r1);
Circle(x,y+r2,r2);
SetBrushColor(clLtGray);
Ellipse(x-r3,y+r2-r4,x+r3,y+r2+r4);
r5:=24;
Circle(x-r5,y-r1-10,r5);
Circle(x+r5,y-r1-10,r5);
r6:=37;
r7:=45;
SetBrushColor(clWhite);
Ellipse(x-r6-2,y-r1-r7+9,x+0,y-r1+12);
Ellipse(x-1,y-r1-r7+9,x+r6+4,y-r1+12);
SetBrushColor(clBlack);
Circle(295,150,10);
Circle(333,150,10);
MoveTo(400,240);
LineTo(250,230);

end.