Движение шарика по траектории

uses crt,graphabc;
 var i,j,x,y:integer;
 const a1=20; b1=20; a2=620; b2=380; r=19;
 begin
     i:=0; j:=0; x:=a1+r+1; y:=b1+r+1;
     setbrushcolor(clskyblue);
     fillrect(a1,b1,a2,b2);
     while x<a2-r-40 do
      begin
                   circle(x,y,r);
                   floodfill(x,y,clolive);
                   delay(150);
                   floodfill(x,y,clskyblue);
                  // clearWindow;
                   i:=i+3;
                   j:=j+1;
                   x:=x+i;
                   y:=y+j
                       end;
                       i:=0;
       while x>a1+r+40 do
      begin
                   circle(x,y,r);
                   floodfill(x,y,clolive);
                   delay(150);
                   floodfill(x,y,clSkyblue);
                   clearWindow;
                   i:=i+1;
                   //j:=j+1;
                   x:=x-i;
                  // y:=y+j
                       end;
                       j:=0;
       while y>b1+r+10 do
      begin
                   circle(x,y,r);
                   floodfill(x,y,clolive);
                   delay(150);
                   floodfill(x,y,clSkyblue);
                   clearWindow;
                  // i:=i+1;
                   j:=j+1;
                  // x:=x-i;
                   y:=y-j
                       end;
                   circle(x,y,r);
                   floodfill(x,y,clolive);
 end.

uses graphABC;
procedure sharik(x,y,r:integer);
begin
setpencolor(clBlue);
setbrushcolor(clBlue);
circle(x,y,r)
end;
var x1,x2,x3,y1,y2,y3,x,y,r:integer;
begin
r:=10;
setwindowsize(500,500);
x1:=windowwidth div 2;
x2:=r;
x3:=windowwidth-r;
y1:=r;
y2:=x1;
y3:=windowheight-r;
x:=x1;
y:=y1;
lockdrawing;
while y<y2 do
 begin
  clearwindow;
  sharik(x,y,r);
  sleep(20);
  y:=y+2;
  redraw
 end;
while x>x2 do
 begin
  clearwindow;
  sharik(x,y,r);
  sleep(20);
  x:=x-2;
  redraw
 end;
while y<y3 do
 begin
  clearwindow;
  sharik(x,y,r);
  sleep(20);
  x:=x+1;
  y:=y+1;
  redraw
 end;
while x<x3 do
 begin
  clearwindow;
  sharik(x,y,r);
  sleep(20);
  x:=x+1;
  y:=y-2;
  redraw
 end;
end.