Из составных процедур создать отдельную библиотеку в форме модуля - Turbo Pascal

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

Этот код разделить на процедуры по содержанию. Из составных процедур создать отдельную библиотеку в форме модуля. Составить программу, которая использует скомпилирован модуль для построения изображения, в разделе операторов содержатся только вызовы процедур.

Uses Graph;
var
gd, gm : integer;
Begin
InitGraph (gd, gm, '');
SetBkColor(black);
ClearDevice;
SetColor(blue);
SetFillStyle( SlashFill , blue );
Bar3D(170, 50, 200, 150, 50, True );
SetColor(LightMagenta);
Circle(70, 70, 50 );
SetFillStyle(XhatchFill, LightMagenta);
FloodFill(70, 70, LightMagenta );
SetColor(red);
SetFillStyle( LineFill , red);
Sector(10, 340, 0, 30, 250, 150);
SetColor(green);
Ellipse(110, 210, 0, 360, 100, 50);
SetFillStyle( HatchFill, green );
FillEllipse(110, 210, 100, 50);
SetColor(Yellow);
Arc(160,415,90,30,60);
Readln;
CloseGraph
end.

Решение задачи: «Из составных процедур создать отдельную библиотеку в форме модуля»

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

program graphex;
 
Uses
  MyGraph;
 
Begin
  DoGraphics;
  parallelepiped;
  FillCircle;
  FillSector;
  GreenEllipse;
  GreenFillEllipse;
  YellowArc;
  CloseGraphics;
end.

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

program graphex;
Uses MyGraph;
Begin
DoGraphics;
parallelepiped;
FillCircle;
FillSector;
GreenEllipse;
GreenFillEllipse;
YellowArc;
CloseGraphics;
End.