Движение фигуры по прямой

uses crt,graph;
 
procedure Draw1(x,y,c:integer);
 const
  dx:=5;
  dy:=5;
begin
setcolor(c);
 MoveTo(x,y);
  LineTo(x+2*dx,y-4*dy);
  LineTo(x+4*dx,y);
  LineTo(x,y);
setfillstyle(1,c);
floodfill(x,y,c);
end;
 
 
procedure Draw2(x,y,c:integer);
 const  
  dx:=5;
  dy:=5;
begin
 setcolor(c);
 Circle(x+2*dx,y-5*dy,Trunc(dx/2));
 setfillstyle(1,c);
 floodfill(x,y,c);
end;
 
procedure Draw3(x,y,c:integer);
 const  
  dx:=5;
  dy:=5;
begin
 setcolor(c);
 Circle(x-1*dx,y+1*dy,Trunc(dx/2));
 setfillstyle(1,c);
 floodfill(x,y,c);
end;
 
procedure Draw4(x,y,c:integer);
 const  
  dx:=5;
  dy:=5;
begin
 setcolor(c);
 Circle(x+4*dx,y+1*dy,Trunc(dx/2));
 setfillstyle(1,c);
 floodfill(x,y,c);
end;
 
var x,y:integer;
begin
initgraph(x,y,'');
x:=20;
y:=20;
Draw1(x,y,14);
Draw2(x,y,9);
Draw3(x,y,10);
Draw4(x,y,5);
repeat
while (x<=getmaxX-20)and not keypressed do
 begin
  delay(50);
  Draw1(x,y,0);
  Draw2(x,y,0);
  Draw3(x,y,0);
  x:=x+10;
  Draw1(x,y,14);
  Draw2(x,y,9);
  Draw3(x,y,10);
  Draw4(x,y,5);
 end;
until keypressed;
end.

uses crt,graph;
procedure figure(x,y,c1,c2,c3,c4:integer);
var p:array[1..4] of pointtype;
    r,d,i:integer;
    u:real;
begin
u:=pi/2;
r:=20;
d:=5;
for i:=1 to 4 do
 begin
  p[i].x:=x+round(r*cos(u));
  p[i].y:=y-round(r*sin(u));
  u:=u+2*pi/3
 end;
setcolor(c1);
setfillstyle(1,c1);
drawpoly(4,p);
floodfill(x,y,c1);
setcolor(c2);
setfillstyle(1,c2);
fillellipse(p[1].x,p[1].y-d,d,d);
setcolor(c3);
setfillstyle(1,c3);
fillellipse(p[2].x-d+2,p[2].y+d-2,d,d);
setcolor(c4);
setfillstyle(1,c4);
fillellipse(p[3].x+d-2,p[3].y+d-2,d,d);
end;
 
var x,y:integer;
begin
initgraph(x,y,'');
x:=30;
y:=getmaxY div 2;
figure(x,y,14,11,13,10);
repeat
while (x<=getmaxX-30)and not keypressed do
 begin
  delay(50);
  figure(x,y,0,0,0,0);
  x:=x+3;
  figure(x,y,14,11,13,10);
 end;
until keypressed;
end.