Графика, изобразить автобус

uses graphABC;
procedure trg(x,y,a,h:integer);
begin
  setpencolor(clBlack);
  setbrushcolor(clGreen);
  polygon(pnt(x-a,y),pnt(x,y-h),pnt(x+a,y),pnt(x-a,y));
end;
var w,h:integer;
begin
w:=40;
h:=25;
setwindowsize(12*w,8*h);
 centerwindow; 
for var i:=0 to 7 do
line(0,i*h,12*w,i*h); 
for var i:=0 to 11 do
line(i*w,0,i*w,8*h);   
trg(2*w,3*h,h,h);
trg(2*w,5*h,w,2*h);
trg(2*w,7*h,w+w div 2,2*h);
trg(6*w,2*h,w div 2,h);
trg(6*w,3*h,w,h);
trg(10*w+w div 2,7*h+h div 2,w div 2+w div 4,2*h);
trg(10*w+w div 2,6*h,w div 2+w div 4,2*h);
trg(10*w+w div 2,4*h+h div 2,w div 2+w div 4,h+h div 2);
setbrushcolor(clGray);
//setpenwidth(h div 2);
rectangle(0,7*h+h div 2,12*w,8*h);
setpencolor(clBlack);
setpenwidth(1);
setbrushcolor(clOrangeRed);
rectangle(2*w,3*h,10*w,7*h);
setbrushcolor(clSilver);
rectangle(2*w,3*h+h div 2,3*w,5*h);
rectangle(3*w+w div 2,4*h,4*w+w div 2,5*h);
rectangle(5*w,4*h,6*w,5*h);
rectangle(6*w+w div 2,4*h,7*w+w div 2,5*h);
rectangle(8*w,4*h,9*w,5*h);
setbrushcolor(clYellow);
circle(4*w,h+h div 2,h);
setbrushcolor(clBlack);
circle(3*w+w div 2,6*h+h div 2,h);
circle(9*w,6*h+h div 2,h);
end.