Дополнить рисунок линиями - Pascal ABC

Формулировка задачи:

Здравствуйте,можете помочь....круги получилось нарисовать,а лини на голове не выходит... помогите сделать уши над головой http://a4.beon.ru/i/temp/42881203/0.jpeg

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.

Решение задачи: «Дополнить рисунок линиями»

Листинг программы

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);
Line(x-r5-5,y-2*r1+10,x-r5+5,y-2*r1-20);
Line(x-r5+5,y-2*r1-20,x-r5+15,y-2*r1+5);
floodfill(x-r5+5,y-2*r1-5,clGray);
Line(x+r5+5,y-2*r1+10,x+r5-5,y-2*r1-20);
Line(x+r5-5,y-2*r1-20,x+r5-15,y-2*r1+5);
floodfill(x+r5-5,y-2*r1-5,clGray);
end.

Объяснение кода листинга программы

Объявляются переменные x, y, r1, r2, r3, r4, r5, r6, r7 типа integer.
Задаются значения переменных x и y, равные половине ширины и высоты окна соответственно.
Задаются значения переменных r1, r2, r3 и r4, равные 50, 80, 50 и 70 соответственно.
Устанавливается цвет кисти равным серому.
Рисуется окружность с центром в точке (x, y) и радиусом r1.
Рисуется окружность с центром в точке (x, y) и радиусом r2.
Устанавливается цвет кисти равным светло-серому.
Рисуется эллипс с центром в точке (x-r3, y+r2-r4), радиусами x-r3 и y+r2-r4 и длиной осей x и y равной r3 и r2 соответственно.
Устанавливается цвет кисти равным белому.
Рисуется эллипс с центром в точке (x-r6-2, y-r1-r7+9), радиусами x-r6-2 и y-r1-r7+9 и длиной осей x и y равной 0 и y-r1+12 соответственно.
Рисуется эллипс с центром в точке (x-1, y-r1-r7+9), радиусами x-1 и y-r1-r7+9 и длиной осей x и y равной r6+4 и y-r1+12 соответственно.
Устанавливается цвет кисти равным черному.
Рисуется окружность с центром в точке (295, 150) и радиусом 10.
Рисуется окружность с центром в точке (333, 150) и радиусом 10.
Рисуется линия между точками (x-r5-5, y-2r1+10) и (x-r5+5, y-2r1-20).
Рисуется линия между точками (x-r5+5, y-2r1-20) и (x-r5+15, y-2r1+5).
Используется функция floodfill для заливки прямоугольника с координатами (x-r5+5, y-2*r1-5) и размерами 10 по обеим осям серым цветом.
Рисуется линия между точками (x+r5+5, y-2r1+10) и (x+r5-5, y-2r1-20).
Рисуется линия между точками (x+r5-5, y-2r1-20) и (x+r5-15, y-2r1+5).
Используется функция floodfill для заливки прямоугольника с координатами (x+r5-5, y-2*r1-5) и размерами 10 по обеим осям серым цветом.