Как нарисовать свиток - Turbo Pascal

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

Помогите

Решение задачи: «Как нарисовать свиток»

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

uses graph;
var x,y:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
setbkcolor(15);
setlinestyle(0,0,3);
setcolor(7);
arc(x-100,y-175,270,180,25);
arc(x-100,y-162,90,270,12);
line(x-100,y-174,x-75,y-174);
setfillstyle(1,7);
floodfill(x-100,y-155,7);
arc(x-150,y+175,90,360,25);
arc(x-150,y+163,270,90,12);
line(x-150,y+175,x-125,y+175);
floodfill(x-150,y+180,7);
setcolor(8);
line(x-100,y-200,x+200,y-200);
line(x-100,y-150,x+200,y-150);
arc(x+200,y-175,270,90,25);
arc(x-150,y+175,90,360,25);
arc(x-150,y+163,270,90,12);
line(x-150,y+175,x-150,y+175);
arc(x-100,y-175,270,180,25);
arc(x-100,y-162,90,270,12);
line(x-100,y-174,x-75,y-174);
line(x-150,y+200,x+145,y+200);
arc(x+145,y+175,270,360,25);
line(x+170,y+175,x+170,y-150);
line(x-125,y+175,x-125,y-175);
line(x-150,y+175,x-125,y+175);
line(x-150,y+150,x-125,y+150);
readln
end.

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

Используется библиотека graph.
Переменные x и y инициализируются значением 0.
Устанавливается стиль линии (0,0,3) и цвет (7).
Рисуется свиток с помощью функции arc.
Устанавливается стиль заливки (1,7) и цвет (7).
Рисуются две дуги окружности с помощью функции arc.
Рисуется линия между двумя точками.
Устанавливается цвет (8).
Рисуется линия между двумя точками.
Рисуется окружность с помощью функции arc.
Устанавливается цвет (8).
Рисуется линия между двумя точками.
Рисуется окружность с помощью функции arc.
Устанавливается цвет (8).
Рисуется линия между двумя точками.
Рисуется окружность с помощью функции arc.
Устанавливается цвет (8).
Рисуется линия между двумя точками.
Рисуется окружность с помощью функции arc.
Устанавливается цвет (8).
Рисуется линия между двумя точками.
Выводится сообщение с помощью функции readln.