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

uses graphABC, crt;
type mas=array [1..1000] of integer;
var i: integer;
    a,b: mas;
 
procedure fon (a,b: mas);
var i,x,y: integer;
begin
setbrushcolor(clnavy);
setpencolor(clnavy);
rectangle(0,0,800,200);
setbrushcolor(clblue);
setpencolor(clblue);
rectangle(0,200,800,400);
setbrushcolor(clgreen);
rectangle(0,400,800,600);
setpencolor(cllime);
for i:=1 to 1000 do
    line(a[i],b[i],a[i]+(random(11)-5),b[i]-(random(11)+10));
setpencolor(clblack);
setbrushcolor(clGray);
rectangle(50,480,800,460);
setpencolor(clblack);
setbrushcolor(clyellow);
circle(700,100,40);
end;
 
procedure dom;
begin
setbrushcolor(clbrown);
rectangle(200,200,230,280);
rectangle(50,300,250,500);
line(50,300,151,200);
line(250,300,149,200);
floodfill(150,220,clmaroon);
floodfill(210,275,clmaroon);
setpencolor(clmaroon);
line(200,280,200,250);
line(200,279,230,279);
setbrushcolor(clskyblue);
rectangle(100,400,150,450);
rectangle(150,400,200,450);
rectangle(100,350,150,400);
rectangle(150,350,200,400);
end;
 
procedure Dym;
var j: byte;
begin
setpencolor(clwhite);
setbrushcolor(clwhite);
for j:=1 to 4 do
    circle(random(30)+200,random(30)+170,random(10)+5);
for j:=1 to 4 do
    circle(random(30)+220,random(30)+150,random(10)+10);
setpencolor(clskyblue);
setbrushcolor(clskyblue);
for j:=1 to 4 do
    circle(random(50)+250,random(50)+100,random(20)+15);
setpencolor(clblue);
setbrushcolor(clblue);
for j:=1 to 4 do
    circle(random(70)+300,random(70)+50,random(30)+20);
end;
 
begin
for i:=1 to 1000 do
    begin
    a[i]:=random(800);
    b[i]:=random(201)+400;
    end;
setwindowsize(800,600);
lockdrawing;
hidecursor;
repeat
for i:=1 to 50 do
    begin
    clearwindow;
    fon(a,b);
    dom;
    Dym;
    sleep(500);
    redraw;
    end;
until keypressed;
end.