Нарисовать игрушечный грузовик — Pascal(Паскаль)

program Ara_graph;
uses crt,graph;
VAr gd,gm,i:integer;
begin
  detectgraph(gd,gm);
  initgraph(gd,gm,'z:\tpe');
  for i:=100 to 600 do begin
  setcolor(green);
  circle(i,330,21);
  circle(i,330,15);
  circle(i+300,330,21);
  circle(i+300,330,15);
 
  rectangle(i-50,307,i+360,306);
 
  rectangle(i-50,307,i+240,250);
 
 rectangle(i+30,249,i+180,90);
 
  line(i+105,249,i+105,90);
  circle(i+120,180,4);
  circle(i+90,180,4);
  rectangle(i+245,307,i+350,240);
 
  rectangle(i+245,239,i+280,180);
 
  rectangle(i+315,239,i+280,180);
 
  line(i+350,239,i+315,180);
 
  ellipse(i+340,265,15,10,5,10);
  delay(5000);
  floodfill(1,1,1);
   end;
 
  {line(440,265,450,400);  }
  readln;
  readln
  end.