Помогите нарисовать рисунок и создать программу в паскале

 program Buldozer; 
 
uses graphABC; 
 
const 
  ScreenWidth = 640; 
  ScreenHeight = 480; 
 
var 
  Driver, Gm, Window, Pipe, Wheel : array[1..2] of integer; 
 
begin 
  // Инициализация 
  InitGraph(Driver, Gm, ''); 
  SetGraphMode(ScreenWidth, ScreenHeight); 
  SetColor(Green); 
 
  // Координаты кабины 
  Window[1] := 200; Window[2] := 100; 
  Pipe[1] := 100; Pipe[2] := 100; 
  Gm[1] := 100; Gm[2] := 200;  
 
  // Рисование кабины 
  Rectangle(Gm[1], Gm[2], Gm[1]+200, Gm[2]+150); 
  Rectangle(Window[1], Window[2], Window[1]+80, Window[2]+50);  
 
  // Рисование двигателя 
  Rectangle(Pipe[1], Pipe[2], Pipe[1]+50, Pipe[2]+50); 
  Rectangle(Pipe[1], Pipe[2]-50, Pipe[1]+20, Pipe[2]);  
 
  // Рисование гусениц 
  for i := 1 to 6 do  
  begin 
    Wheel[1] := 100 + 50 * i; 
    Wheel[2] := 350; 
    Circle(Wheel[1], Wheel[2], 25); 
  end; 
  Line(100, 350, 400, 350); 
 
  // Завершение 
  Readkey; 
  CloseGraph; 
end.