Изобразить на экране движущийся объект

uses crt,Graph;
var
x,j: integer;
grDriver: Integer; grMode: Integer;
ErrCode: Integer;
res: integer;
 
begin
grDriver := detect;
InitGraph(grDriver, grMode,'C:\Program Files\TP\BGI');
ErrCode := GraphResult;
if ErrCode = grOk then
begin
SetBkColor(LightGray);
repeat
for x:=0 to 700 do
begin
setcolor(blue);
SetFillStyle(1,blue);
bar(x-100,300,x-10,400);
bar(x,350,x+50,400);
setcolor(white);
SetFillStyle(1,white);
bar(x+10,360,x+40,380);
setcolor(black);
SetFillStyle(1,blue);
circle(x+20,400,10);
circle(x-30,400,10);
circle(x-80,400,10);
FloodFill(x+21,400,black);
FloodFill(x-31,400,black);
FloodFill(x-81,400,black);
delay(1000);
setcolor(LightGray);
SetFillStyle(1,LightGray);
bar(x-100,300,x-10,400);
bar(x,350,x+50,400);
setcolor(LightGray);
SetFillStyle(1,LightGray);
bar(x+10,360,x+40,380);
setcolor(LightGray);
SetFillStyle(1,LightGray);
circle(x+20,400,10);
circle(x-30,400,10);
circle(x-80,400,10);
end;
until keypressed;
end;
CloseGraph;
end.