Движение шарика через модуль crt

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.