Как сделать так чтобы тележка двигалась после диагонального движения

uses graphABC;
var x,y,i:integer;
begin
textout(x,y,'äâèæåíèå');
for i:=1 to 100 do begin
 setpencolor(clBlack);
{1}rectangle(50+i,200-i,120+i,230-i);
   circle(55+i,235-i,5);
   circle(115+i,235-i,5);
sleep(100);
 setpencolor(clwhite);
{1}rectangle(50+i,200-i,120+i,230-i);
   circle(55+i,235-i,5);
   circle(115+i,235-i,5);
end;
end.

uses graphABC;
var x,y,i:integer;
begin
textout(x,y,'движение');
for i:=1 to 100 do begin
 setpencolor(clBlack);
{1}rectangle(50+i,200-i,120+i,230-i);
   circle(55+i,235-i,5);
   circle(115+i,235-i,5);
sleep(50);
 setpencolor(clwhite);
{1}rectangle(50+i,200-i,120+i,230-i);
   circle(55+i,235-i,5);
   circle(115+i,235-i,5);
end;
 for i:=1 to 150 do begin
 setpencolor(clBlack);
{1}rectangle(150-i,100,220-i,130);
   circle(155-i,135,5);
   circle(215-i,135,5);
sleep(50);
 setpencolor(clwhite);
{1}rectangle(150-i,100,220-i,130);
   circle(155-i,135,5);
   circle(215-i,135,5);
end;
setpencolor(clBlack);
rectangle(1,100,70,130);
circle(5,135,5);
circle(65,135,5);
 
end.