Разделить код на процедуры по содержанию - Pascal ABC

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

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

                    Листинг программы
                
 
                        
                          
                    
uses graphABC;
 
begin
setwindowsize(800,600);    
setpencolor(clblue);      
setbrushcolor(clblue);     
rectangle(0,0,800,400); 
setpencolor(clgreen);       
setbrushcolor(clgreen); 
rectangle(0,400,800,600); 
setpencolor(clblack);
setbrushcolor(clSilver);
rectangle(50,300,250,500); 
rectangle(250,500,500,300); 
line(50,300,150,200);         
line(50,300,150,200);         
line(150,200,250,300);         
line(400,200,500,300);         
line(150,200,400,200);         
floodfill(150,250,clsilver);  
floodfill(300,250,clMaroon);   
setbrushcolor(clyellow);
rectangle(110,360,190,440);  
rectangle(280,360,360,440);   
setbrushcolor(clSilver);
rectangle(280,180,320,230);   
setbrushcolor(clMaroon);
rectangle(400,350,470,500);  
setbrushcolor(clyellow);
circle(150,270,20); 
circle(410,410,5); 
setbrushcolor(Clsilver);
fillellipse (570,80,50,50);
end.

Решение задачи: «Разделить код на процедуры по содержанию»

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

// Откомпилируйте библиотеку, нажав Ctrl-F9. В папке должен появиться файл MyLib.dll
library MyLib;
 
uses
  graphABC;
procedure init();
begin
setwindowsize(800, 600);
end;
procedure nebo();
begin
  setpencolor(clblue);    
  setbrushcolor(clblue);    
  rectangle(0, 0, 800, 400); 
end;
 
procedure trava ();
begin
  setpencolor(clgreen);       
  setbrushcolor(clgreen); 
  rectangle(0, 400, 800, 600); 
end;
 
procedure dom();
begin
  setpencolor(clblack);//дом
  setbrushcolor(clSilver);
  rectangle(50, 300, 250, 500); 
  rectangle(250, 500, 500, 300); 
  line(50, 300, 150, 200);         
  line(50, 300, 150, 200);         
  line(150, 200, 250, 300);         
  line(400, 200, 500, 300);         
  line(150, 200, 400, 200);         
  floodfill(150, 250, clsilver);  
  floodfill(300, 250, clMaroon);
  setbrushcolor(clMaroon);
  rectangle(400, 350, 470, 500);
  setbrushcolor(clyellow);
  circle(410, 410, 5);
  setbrushcolor(clSilver);
  rectangle(280, 180, 320, 230);
end;
 
procedure okna();
begin
  setbrushcolor(clyellow);//окно
  rectangle(110, 360, 190, 440);  
  rectangle(280, 360, 360, 440);   
  setbrushcolor(clyellow);
  circle(150, 270, 20); 
end;
 
procedure dym();
begin
  setbrushcolor(Clsilver);//дым
  fillellipse(570, 80, 50, 50);
end;
end.

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

Создание библиотеки MyLib с использованием языка программирования Pascal ABC.
Объявление процедур:
- init() - устанавливает размер окна.
- nebo() - рисует синий прямоугольник.
- trava() - рисует зеленый прямоугольник.
- dom() - рисует черный прямоугольник, а также две линии и окружность.
- okna() - рисует желтые прямоугольники и окружность.
- dym() - рисует серебристый эллипс.
Конец программы.