Сделайте так, что бы поезд двигался

program dima6b;
uses graphABC;
var x,y: integer;
begin
x:=15;
y:=15;
line (x,y,x*5,y);
line (x,y,x*5,y);
line (x,y,x,y*7);
line (x*2,y*2,x*4,y*2);
line (x*2,y*4,x*2,y*2);
line (x*2,y*4,x*4,y*4);
line (x*4,y*4,x*4,y*2);
line (x,y*7,x*11,y*7);
line (x*5,y,x*5,y*4);
line (x*5,y*4,x*9,y*4);
line (x*9,y*4,x*9,y*2);
line (x*9,y*2,x*8,y*2);
line (x*8,y*2,x*8,y);
line (x*8,y,x*11,y);
line (x*11,y,x*11,y*2);
line (x*11,y*2,x*10,y*2);
line (x*10,y*2,x*10,y*4);
line (x*10,y*4,x*11,y*4);
line (x*11,y*4,x*12,y*6);
line (x*12,y*6,x*11,y*7);
circle (x*4,y*8,15);
circle (x*9,y*8,15);
readln;
end.

uses graphABC;
var x,y: integer;
begin
x:=15;
y:=15;
lockdrawing;
repeat
clearwindow;
line (x,y,x+60,y);
line (x,y,x,y+90);
line (x+15,y+15,x+45,y+15);
line (x+15,y+45,x+15,y+15);
line (x+15,y+45,x+45,y+45);
line (x+45,y+45,x+45,y+15);
line (x,y+90,x+150,y+90);
line (x+60,y,x+60,y+45);
line (x+60,y+45,x+120,y+45);
line (x+120,y+15,x+105,y+15);
line (x+105,y+15,x+105,y+15);
line (x+105,y+15,x+105,y);
line (x+105,y,x+150,y);
line (x+150,y,x+150,y+15);
line (x+150,y+15,x+135,y+15);
line (x+120,y+15,x+120,y+45);
line (x+135,y+15,x+135,y+45);
line (x+135,y+45,x+150,y+45);
line (x+150,y+45,x+165,y+75);
line (x+165,y+75,x+150,y+90);
circle (x+45,y+105,15);
circle (x+120,y+105,15);
sleep(100);
x:=x+5;
redraw
until x>windowwidth
end.