Графика. До задачи что-то дорисовать, разные объекты, кошку, собаку и т.д.

uses graphABC,men,sun;
var ch,k,x,y,i:integer;
begin
setwindowsize(900,800);
setpencolor(clskyblue);
setbrushcolor(clskyblue);
rectangle(0,0,1000,600);
setpencolor(clgreen);
setbrushcolor(clgreen);
rectangle(0,400,1000,700);
 
setpencolor(clbrown);
setbrushcolor(clbrown);
rectangle(100,450,350,250);
setpencolor(clred);
setbrushcolor(clred);
rectangle(150,400,220,300);
rectangle(230,400,300,300);
line(100,250,225,100);
line(225,100,350,250);
floodfill(225,120,clgray);
  draw_sun; //ïðîöåäóðà ç ìîäóëåì
  draw_men; //ïðîöåäóðà ç ìîäóëåì
  setpencolor(clskyblue);
  setbrushcolor(clskyblue);
  circle(43, 343, 3);
  circle(60,343,3);
    //äåðåâî
 setpencolor(clyellow); //ëèñòÿ
setbrushcolor(clyellow);//
circle(600,100,50);//
setpencolor(clbrown);//
setbrushcolor(clbrown);
rectangle(400,280,420,420);//ñòîâáóð
setpencolor(clyellow);//
setbrushcolor(clgreen); //
ellipse(320,100,500,350); //
 
setpencolor(clNavy);   //ozero
setbrushcolor(clNavy); //
ellipse(750,550,378,400);  ///
  setbrushcolor(clGreen);//ïëîäè äåðåâà
 ellipse(320,100,500,350); //
setpencolor(clyellow); //
setbrushcolor(clred);//
for i:=1 to 25 do     //
   circle((random(121)+340),(random(161)+140),10);  //
     setpencolor(clLtgray);
     setbrushcolor(clLtgray);// õìàðà
      ellipse(0,0,500,99);  //
       setpencolor(clgreen);
       setbrushcolor(clgreen);
end.

unit men;
uses graphabc;
procedure draw_men;
begin
      setpencolor(clolive);
  setbrushcolor(clolive);
  circle(50, 350, 20);
  setpencolor(clblack);
  setbrushcolor(clblack);
  line(50, 367, 35, 390);
  line(50, 367, 65, 390);
  line(50, 367, 50, 407);
  line(50, 407, 35, 425);
  line(50, 407, 65, 425);
end;
  
begin
end.

unit sun;
 uses graphabc;
 procedure draw_sun;
 begin
setpencolor(clyellow);
setbrushcolor(clyellow);
circle(600,100,50);
end;
 
begin
end.