Нарисовать домик, а так же дым и звезды

program Dom;
uses graphabc;
 
procedure star;
begin
SetBrushColor(clYellow);
Line(190, 11, 140, 90);
Line(140, 90, 71, 90);
Line(70, 90, 141, 150);
Line(141, 150, 109, 220);
Line(109, 220, 190, 189);
Line(190, 189, 269, 218);
Line(269, 218, 240, 148);
Line(240, 148, 310, 90);
Line(310, 90, 240, 90);
Line(240, 90, 189, 11);
 
end;
 
begin
 
  setwindowtitle ('Dom');
  setpencolor (clbrown);
  setpenwidth (2);
  rectangle(100,100,270,200); 
  
  setbrushcolor(clyellow);
  rectangle(130,120,160,160); 
  rectangle(210,120,240,160); 
  line(100,100,185,50);       
  line(185,50,270,100);       
  
  line(100,80,100,100);       
  line(100,80,110,80);        
  line(110,80,110,100);       
  
  line(145,120,145,160);      
  line(130,130,145,130);      
  line(225,120,225,160);      
  line(210,130,225,130);      
  circle(185,75,12);
  setbrushstyle (bssolid);
  floodfill(110,110,clbrown);
  setfontcolor(clyellow);
  setfontstyle(fsbold);
  setfontsize(1);
  setbrushcolor(clteal);
  
  star;
  
end.

program Dom;
 
uses
  graphabc;
 
//Рисует n-конечную звезду
procedure myStar(x0, y0, nn, r1, r2: integer; C: ColorType);//r1 < r2 
var
  x, y, i, R: integer;
  a: real;
begin
  a := random; //начальный угол - случайный
  SetPenColor(clYellow);
  SetPenWidth(2);
  for i := 0 to 2 * nn do 
  begin
    a := a + pi / nn; //угол увеличиваем на 360/(2*nn) градуса (в радианах)
    if odd(i) then R := r1
    else R := r2;
    x := x0 + Round(R * cos(a));
    y := y0 + Round(R * sin(a));
    if i = 0 then MoveTo(x, y) //сначала устанавливаем точку
    else LineTo(x, y)//потом проводим отрезки
  end;
  FloodFill(x0, y0, C)
end;
 
var
  x, y, dx, dy, r1, r2, nn, i, j, n, m, W, H, a: integer;
  C: ColorType;//цвет звезды
 
begin
  ClearWindow(clBlue);
  r1 := 6;  //Меньший радиус
  r2 := 15; //Больший радиус
  C := clYellow; //цвет заливки звезды
  W := WindowWidth;
  H := WindowHeight;
  n := 4; m := 8;
  a := 100; //Расстояние от нижнего края окна до верхней границы земли
  dx := round(W / n);
  dy := round((H - a) / m);
 
  //Заполняем небо звездами:
  for i := 1 to n do
    for j := 1 to m do 
    begin
      x := (i - 1) * dx + random(dx - r2);
      y := (j - 1) * dy + random(dy - r2);
      if not ((x > 100) and (y > 280) and (x < 280))//Место, НЕ где расположен домик 
        then myStar(x, y, 5, r1, r2, C) //рисуем звезду
    end;
  
  //Земля:
  Line(0, H - a, W, H - a);
  FloodFill(10, H - a + 10, clGreen);
  
  //Дом:
  setwindowtitle('Dom');
  setpencolor(clbrown);
  setpenwidth(2);
  x := 100; y := 350; //Координаты домика
  rectangle(x, y, x + 170, y + 100); 
  
  setbrushcolor(clyellow);
  rectangle(x + 30, y + 20, x + 60, y + 60); 
  rectangle(x + 110, y + 20, x + 140, y + 60); 
  line(x, y, x + 85, y - 50);       
  line(x + 85, y - 50, x + 170, y);       
  
  line(x, y - 20, x, y);       
  line(x, y - 20, x + 10, y - 20);        
  line(x + 10, y - 20, x + 10, y);       
  
  line(x + 45, y + 20, x + 45, y + 60);      
  line(x + 30, y + 30, x + 45, y + 30);      
  line(x + 125, y + 20, x + 125, y + 60);      
  line(x + 110, y + 30, x + 125, y + 30);      
  circle(x + 85, y - 25, 12);
  
  FloodFill(x + 101, y - 37, clRed);
  
  setbrushstyle(bssolid);
  floodfill(x + 10, y + 10, clbrown);
  setfontcolor(clyellow);
  setfontstyle(fsbold);
  setfontsize(1);
  setbrushcolor(clteal)
end.