Анимация - движение кругов по экрану

uses graphABC,crt;
var i,x,y,r: integer;
begin
setwindowsize(500,500);
lockdrawing;
hidecursor;
x:=250; y:=250; r:=20;
setpenwidth(3);
repeat
setpencolor(rgb(random(255),random(255),random(255)));
for i:=1 to 270 do
    begin
    clearwindow;
    SetBrushStyle(bsclear);
    circle(x-i,y-i,r);
    circle(x-i,y+i,r);
    circle(x+i,y-i,r);
    circle(x+i,y+i,r);
    sleep(5);
    redraw;
    end;
until keypressed;
end.

uses graphABC;
var xc,yc,r,dx,dy,x1,y1,x2,y2,x3,y3,x4,y4:integer;
begin
setwindowsize(640,480);
xc:=windowwidth div 2;
yc:=windowheight div 2;
r:=10;
dx:=4;
dy:=3;
x1:=xc-r;
y1:=yc-r;
x2:=xc+r;
y2:=y1;
x3:=x2;
y3:=yc+r;
x4:=x1;
y4:=y3;
lockdrawing;
repeat
clearwindow;
x1:=x1-dx; y1:=y1-dy;
x2:=x2+dx; y2:=y2-dy;
x3:=x3+dx; y3:=y3+dy;
x4:=x4-dx; y4:=y4+dy;
circle(x1,y1,r);
circle(x2,y2,r);
circle(x3,y3,r);
circle(x4,y4,r);
sleep(100);
redraw
until x1<=2*r;
end.

uses graphABC;
var xc,yc,r,dx,dy,x1,y1,x2,y2,x3,y3,x4,y4:integer;
    f:boolean;
procedure KeyDown(Key: integer);
begin
if Key=VK_Return then f:=false;//условие выхода из программы
end;
begin
f:=true;
setwindowsize(640,480);
xc:=windowwidth div 2;
yc:=windowheight div 2;
r:=20;
dx:=4;
dy:=3;
lockdrawing;
while f do
 begin
  x1:=xc-r;
  y1:=yc-r;
  x2:=xc+r;
  y2:=y1;
  x3:=x2;
  y3:=yc+r;
  x4:=x1;
  y4:=y3;
  Pen.Color:=clRandom;
  setpenwidth(3);
  while (x1>2*r)and f do
   begin
    clearwindow;
    textout(xc-50,20,'Выход Enter');
    x1:=x1-dx; y1:=y1-dy;
    x2:=x2+dx; y2:=y2-dy;
    x3:=x3+dx; y3:=y3+dy;
    x4:=x4-dx; y4:=y4+dy;
    circle(x1,y1,r);
    circle(x2,y2,r);
    circle(x3,y3,r);
    circle(x4,y4,r);
    sleep(50);
    redraw
   end;
  OnKeyDown := KeyDown;
 end;
end.