Jak „ożywić” elementy na planszy

Witam
Dostałem do zrobienia projekt. Wózek widłowym zabiera paczkę odstawia na miejsce i wraca po następną paczkę.
Zrobiłem, nie wiem czy dobrze, hale, paczkę, wózek, plansze (oczywiście wszystko to dopiero początek brakuje menu, jakiegoś systemu punktacji itp. to dopiero 1 dzień pracy nad projektem).
Moje pytanie brzmi tak jak ożywić elementy na planszy, jak sprawić żeby wózek się poruszał paczka wyjeżdżała z hali co jakiś czas ?
Do tej pory wygląda to tak:

Program Procedury_Graficzne;
uses crt,graph;
var karta,tryb:integer;
    sciezka:string;
    c1:char;

Procedure Ramka;
Begin
{ sciezka:='C:\Program Files\TP\UNITS';
 DetectGraph(karta,tryb);
 InitGraph(karta,tryb,sciezka);}
    SetColor(white);             {ramka}
    SetLineStyle(3,0,3);
    Rectangle(50,50,1200,730);
    SetColor(white);
    SetLineStyle(0,0,1);
    Rectangle(50,50,1200,730);
    SetColor(white);
    SetLineStyle(0,0,1);
    Line(800,730,800,50);
   {tlo___________}
 {   SetFillStyle(11,87);
    FloodFill(820,55,white);}
    SetFillStyle(10,87);
    FloodFill(820,56,white);
  {  Line(1200,50,1200,730); } {prawa}
 {   Line(50,50,50,730);  }  {lewa}
{    Line(50,50,1200,50);  }
{    Line(50,730,1200,730);  }
  end;
Procedure hala;
Begin
 SetColor(200);
 SetLineStyle(0,0,3);
 Rectangle(60,150,550,400);   {hala}
{  Line(60,200,500,200); } {gora}
{  Line(60,350,500,350); } {dol}
{  Line(60,200,60,350);   }
{  Line(500,200,500,350);  }

  SetColor(200);
  Rectangle(150,400,210,600);

      SetFillStyle(8,230);     {kangur}
   floodFill(66,204, 200);
    SetLineStyle(0,0,1);
    Line(60,150,550,400);   {przekat na \ }
    line(60,400,550,150);   { / }
end;

Procedure paczka;
Begin
 SetFillStyle(1,164);
 Bar(160,450,200,490);
 end;


Procedure wozek;
Begin
{ SetColor(98);  }
 SetFillStyle(1,red);   {wozek}
 Bar(600,60,670,170);
 SetColor(black);    {wydech}
 circle(620,75,8);
 {FloodFill(620,75,8);}
 SetColor(black);
 SetFillStyle(1,black);  {kabina}
 Bar(610,100,660,168);
 SetFillStyle(1,blue);
 Bar(615,120,650,158);
 SetColor(166);
 SetLineStyle(0,0,3);
 Line(620,170,620,200);
 Line(650,170,650,200);
 end;




Begin
  sciezka:='C:\Program Files\TP\UNITS';
 DetectGraph(karta,tryb);
 InitGraph(karta,tryb,sciezka);
 Ramka;
 hala;
 paczka;
 wozek;
 readkey;
end.