Как нарисовать домик в GraphsAbs заранее Огромное спасибо

uses graphABC;
var x1,y1,x2,y2,i,j: integer;

procedure Trava;
begin
for i:=1 to 1000 do
begin
x1:=random(801);
y1:=random(251)+390;
x2:=x1+random(10)-5;
y2:=y1+random(20)+10;
setpencolor(rgb(random(255),255,random(255)));
line(x1,y1,x2,y2);
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 Zabor;
begin
x1:=00;
setbrushcolor(clyellow);
for i:=1 to 20 do
begin
rectangle(x1,450,x1+20,600);
x1:=x1+40;
end;
rectangle(0,510,800,530);
end;

procedure Yabloki;
begin
for i:=1 to 10 do
begin
x1:=random(141)+600;
y1:=random(201)+200;
setpencolor(clred);
setbrushcolor(clred);
circle(x1,y1,10);
setpencolor(clyellow);
setbrushcolor(clyellow);
circle(x1-4,y1-4,5);
end;
end;

procedure Dym(x1,y1,x2,y2: integer);
begin
setpencolor(clsilver);
setbrushcolor(clsilver);
ellipse(x1,y1,x2,y2);
setpencolor(clgray);
setbrushcolor(clgray);
ellipse(x1+5,y1+5,x2-15,y2-15);
end;

begin
setwindowsize(800,600);
setpencolor(clblue);
setbrushcolor(clblue);
rectangle(0,0,800,400);
setpencolor(clgreen);
setbrushcolor(clgreen);
rectangle(0,400,800,600);
Trava;
Oblako(-50,200);
Oblako(200,100);
Oblako(500,200);
Oblako(600,130);
setpencolor(clblack);
setbrushcolor(clSilver);
rectangle(50,300,250,500);
rectangle(250,500,500,300);
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(claqua);
rectangle(110,360,190,440);
rectangle(280,360,360,440);
setbrushcolor(clSilver);
rectangle(280,180,320,230);
setbrushcolor(clMaroon);
rectangle(400,350,470,500);
setbrushcolor(claqua);
circle(150,270,20);
setbrushcolor(clBrown);
rectangle(650,400,670,500);
setbrushcolor(clgreen);
ellipse(570,150,750,420);
Yabloki;
Zabor;
Dym(320,130,380,170);
Dym(400,100,480,150);
Dym(490,40,600,100);
Dym(630,0,750,70);
end.