Как реализовать одновременное движение двух объектов

uses crt,graph;
var
   a:char;
   d,m,x,y,x3,y3:integer;
 begin
 d:=0;
initgraph(m,d,'..');
x3:=300;y3:=400;
x:=20;y:=20;
circle(300,400,40);
               repeat
 
 
                     setcolor(white);
                     circle(x,y,20);
                     delay(10);
                     setcolor(black);
                     circle(x,y,20);
                     x:=x+1;
 
               until x>600;
                x:=600;
 
               repeat
 
                     setcolor(white);
                     circle(x,y,20);
                     delay(10);
                     setcolor(black);
                     circle(x,y,20);
                     x:=x-1;
 
               until x<40;
 
                   if keypressed then begin
                   a:=readkey;
 
                      repeat
                      setcolor(white);
                   circle(x3,y3,2);
                   setcolor(black);
                   delay(10);
                   circle(x3,y3,2);
                   x3:=x3-1;
                   y3:=y3-1;
                          until x>x3;
 
 
end;
end.

uses
  crt, graph;
var
  ch:char;
  xenemy,yenemy:integer;
  oldxenemy,oldyenemy:integer;
  xbullet,ybullet:integer;
  xcanon,ycanon:integer;
  oldxcanon,oldycanon:integer;
  canonsize:integer;
  enemysize:integer;
  gd,gm:integer;
begin
  gd:=detect;
  initgraph(gm,gd,'c:\bp\bgi');
  canonsize:=40;
  enemysize:=20;
  xenemy:=30;
  yenemy:=20;
  xcanon:=GetMaxX div 2;
  ycanon:=GetMaxY + canonsize div 2;
  circle(xcanon,ycanon,canonsize);
  circle(xenemy,yenemy,enemysize);
  { игровой цикл }
  while true do
    begin
      oldxcanon:=xcanon;
      oldycanon:=ycanon;
      if not keypressed then
        begin
          oldxenemy:=xenemy;
          oldyenemy:=yenemy;
          { движение врага }
          setcolor(red);
          circle(xenemy,yenemy,enemysize);
          delay(50);
          setcolor(black);
          circle(oldxenemy,oldyenemy,enemysize);
          xenemy:=xenemy+5;
          if xenemy>GetMaxX-enemysize then
            xenemy:=enemysize;
 
          yenemy:=yenemy;
        end
      else
        begin
          ch:=readkey;
          if ch=#27 then
            exit;
          if ch=#32 then
            begin
              {сюда вставить обработку выстрела по пробелу}
            end;
          if ch=#0 then
            ch:=readkey;
          case ch of
            #72:  { вверх}
              begin
                ycanon:=ycanon-1;
              end;
            #80:  { вниз}
              begin
                ycanon:=ycanon+1;
              end;
            #75:  { влево}
              begin
                xcanon:=xcanon-1;
              end;
            #77:  { вправо}
              begin
                xcanon:=xcanon+1;
              end;
          end; {of case}
          { движение пушки }
          setcolor(white);
          circle(xcanon,ycanon,canonsize);
          delay(1);
          setcolor(black);
          circle(oldxcanon,oldycanon,canonsize);
        end; { of else}
    end; {of while}
  readln;
  closegraph;
end.