Используя процедуру домик построить в графическом окне городскую улицу

uses abcHouse,GraphABC;
const w=400;h=200;heightCrysha=20;PW=6;
var a:abcHouse.HouseABC;
procedure crysha(x1,y1,x2,y2,x3,y3:integer);
begin
SetPenColor(clgreen);
SetPenWidth(pw);
Line(x1,y1,x2,y2);
Line(x2,y2,x3,y3);
FloodFill(x1+pw*4,y1-pw,clgreen);
end;
begin
a:=new HouseABC(Window.Width div 2-W div 2,Window.Height div 2-h div 2,w,h,GraphABC.clbrown);
crysha(Window.Width div 2-W div 2,Window.Height div 2-h div 2,Window.Width div 2,HeightCrysha,Window.Width div 2+w div 2,Window.Height div 2-h div 2);
end.

uses graphABC;
var x1,y1,x2,y2: integer;
 
procedure Trava;
begin
for var i:=1 to 1000 do
    begin
    x1:=random(1001);
    y1:=random(551); 
    if y1<510  then 
    begin
    if y1>400 then
       begin
       x2:=x1+random(10)-5;
       y2:=y1+random(20)+10;
       setpencolor(rgb(random(255),255,random(255)));
        line(x1,y1,x2,y2);
        end        
        end;
    end;
end;
 
procedure Oblako(x2,y2: integer);
begin
setpencolor(clwhite);
setbrushcolor(clwhite);
rectangle(x2,y2-20,x2+100,y2);
circle(x2,y2-10,10);
circle(x2+100,y2-10,10);
circle(x2+20,y2-20,20);
circle(x2+80,y2-20,20);
circle(x2+50,y2-30,20);
end;
 
 procedure Dom (dx,dy: integer);
begin
setpencolor(clblack);
setbrushcolor(clSilver);
rectangle(50+dx,300,250+dx,500);
rectangle(250+dx,500,500+dx,300);
line(50+dx,300,150+dx,200);
line(150+dx,200,250+dx,300);
line(400+dx,200,500+dx,300);
line(150+dx,200,400+dx,200);
floodfill(150+dx,250,clsilver);
floodfill(300+dx,250,clMaroon);
setbrushcolor(claquamarine);
rectangle(110+dx,360,190+dx,440);
line(110+dx,390,190+dx,390);
line(150+dx,390,150+dx,440);
rectangle(280+dx,360,360+dx,440);
line(280+dx,390,360+dx,390);
line(320+dx,390,320+dx,440);
 
setbrushcolor(clMaroon);
rectangle(400+dx,350,470+dx,500);
setbrushcolor(claquamarine);
circle(150+dx,270,20);
line(130+dx,270,170+dx,270);
line(150+dx,250,150+dx,290);
end;
 
begin
//Задаем окно
setwindowsize(1000,600);
//небо синее 
setpencolor(clblue);
setbrushcolor(clblue);
rectangle(0,0,1000,400);
//поляна зеленая
setpencolor(clgreen);
setbrushcolor(clgreen);
rectangle(0,400,1000,550);
//дорога серая
setpencolor(clgray);
setbrushcolor(clgray);
rectangle(0,550,1000,600);
//бордюр белый
setpencolor(clWhite);
setbrushcolor(clWhite);
rectangle(0,530,1000,550);
Trava;
Oblako(-50,200);
Oblako(200,100);
Oblako(500,200);
Oblako(800,130);
//Рисуем 2 дома
dom(-20,0);
dom(450,0);
 
end.