Составить программу рисования одного из рисунков - Turbo Pascal

uses graph;
var x0,y0,d,i:integer;
    s:string;
begin
initgraph(x0,y0,'');
d:=getmaxY div 16; {размер клеток}
x0:=d;
y0:=d;
{белый фон}
setfillstyle(1,15);
bar(0,0,getmaxX,getmaxY);
{сетка}
setcolor(0);
for i:=1 to 15 do
 begin
  line(x0+i*d,y0,x0+i*d,y0+14*d);
  str(i*5,s);
  if i mod 2=0 then outtextXY(x0+i*d-5,y0+5,s);
 end;
for i:=1 to 14 do
 begin
  line(x0,y0+i*d,x0+15*d,y0+i*d);
  str(i*5,s);
  if (i mod 2=0)and(i<14) then outtextXY(x0+5,y0+i*d-3,s);
 end;
setlinestyle(0,0,3);
{оси}
line(x0,y0,x0,y0+14*d);
line(x0,y0+14*d,x0-10,y0+13*d);
line(x0,y0+14*d,x0+10,y0+13*d);
line(x0,y0,x0+15*d,y0);
line(x0+15*d,y0,x0+14*d,y0-10);
line(x0+15*d,y0,x0+14*d,y0+10);
{контур дома с крышей}
rectangle(x0+3*d,y0+5*d,x0+12*d,y0+13*d);
line(x0+5*d,y0+3*d,x0+10*d,y0+3*d);
line(x0+3*d,y0+5*d,x0+5*d,y0+3*d);
line(x0+12*d,y0+5*d,x0+10*d,y0+3*d);
{двери}
rectangle(x0+6*d,y0+10*d,x0+9*d,y0+13*d);
{окна}
rectangle(x0+7*d,y0+3*d+d div 2,x0+8*d,y0+4*d+d div 2);
rectangle(x0+4*d,y0+6*d,x0+5*d,y0+8*d);
rectangle(x0+8*d,y0+7*d,x0+9*d,y0+9*d);
rectangle(x0+4*d,y0+10*d,x0+5*d,y0+11*d);
rectangle(x0+10*d,y0+10*d,x0+11*d,y0+12*d);
{антенна}
line(x0+9*d,y0+2*d,x0+9*d,y0+3*d);
line(x0+8*d,y0+d+d div 2,x0+10*d,y0+2*d+d div 2);
line(x0+8*d,y0+2*d+d div 2,x0+10*d,y0+d+d div 2);
readln
end.