Нужно нарисовать рисунок (грузовик) - Turbo Pascal

uses graph;
var x,y:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
setfillstyle(1,15);
bar(0,0,2*x,2*y);
setfillstyle(1,0);
bar(x-150,y,x-10,y+50);
bar(x-100,y-100,x-40,y);
bar(x+10,y-90,x+60,y-20);
bar(x+10,y-20,x+100,y+50);
setcolor(0);
setlinestyle(0,0,3);
line(x-10,y+50,x+10,y+50);
line(x+60,y-90,x+100,y-20);
fillellipse(x-80,y+80,30,30);
fillellipse(x+40,y+80,30,30);
setfillstyle(1,15);
fillellipse(x-80,y+80,20,20);
fillellipse(x+40,y+80,20,20);
readln
end.