Нарисовать в паскале деревню нужно нарисовать около 5 простых домиков на против каждого будет дерево

Вот программка для одного домика. А представь для 5 домиков и еще с деревьями.
program dom;
uses graphabc;
begin
setwindowsize (640,480);
setwindowtitle ('Дом');
setpencolor (clbrown);//Цвет пера (коричневый)
setpenwidth (2); //Ширина пера (2 пикселя)
rectangle(100,100,270,200); //Прямоугольник
setbrushstyle (bsdiagcross);//Стиль кисти (косая клетка)
setbrushcolor(cllime); //Цвет кисти (ярко-зеленый)
rectangle(130,120,160,160);
rectangle(210,120,240,160);
line(100,100,185,50);
line(185,50,270,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,clteal);
floodfill(120,97,clltgray);
setfontcolor(clyellow);
setfontstyle(fsbold);
setfontsize(1);
setbrushcolor(clteal);
textout (104,104,'№49');
end.