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

// Откомпилируйте библиотеку, нажав 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.