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

uses graphABC;
var x1,y1,x2,y2,x3,y3,r,x,y:integer;
//рисование траектории
procedure Grafik;
begin
setpencolor(clBlack);
moveto(x1,y1);
lineto(x2,y1);
lineto(x3,y2);
lineto(x3,y3);
lineto(x2,y3);
lineto(x2,y1);
end;
//рисование шарика
procedure Sharik(x,y,r:integer);
begin
setpencolor(clRed);
setbrushcolor(clRed);
circle(x,y,r);
end;
 
begin
setwindowsize(500,500);
r:=10;
x1:=windowwidth-r;
x2:=x1 div 2;
x3:=r;
y1:=windowheight div 2;
y2:=windowheight-r;
y3:=r;
x:=x1;
y:=y1;
Grafik;//рисуем график
Sharik(x,y,r);
lockdrawing;
while x>x2 do
 begin
  clearwindow;
  x:=x-1;
  Grafik;//рисуем график
  Sharik(x,y,r);
  sleep(10);
  redraw;
 end;
while(x>x3)and(y<y2) do
 begin
  clearwindow;
  x:=x-1;
  y:=y+1;
  Grafik;//рисуем график
  Sharik(x,y,r);
  sleep(10);
  redraw;
 end;
while y>y3 do
 begin
  clearwindow;
  y:=y-1;
  Grafik;//рисуем график
  Sharik(x,y,r);
  sleep(10);
  redraw;
 end;
while x<x2 do
 begin
  clearwindow;
  x:=x+1;
  Grafik;//рисуем график
  Sharik(x,y,r);
  sleep(10);
  redraw;
 end;
while y<y1 do
 begin
  clearwindow;
  y:=y+1;
  Grafik;//рисуем график
  Sharik(x,y,r);
  sleep(10);
  redraw;
 end;
end.