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

uses graphABC;
var x1,x2,x3,y1,y2,y3:integer;
procedure trk;
begin
setpencolor(clBlack);
moveto(x2,y2);
lineto(x3,y1);
lineto(x3,y3);
lineto(x1,y3);
lineto(x1,y2);
lineto(x2,y1);
end;
procedure shar(x,y,r:integer);
begin
setpencolor(clRed);
setbrushcolor(clRed);
circle(x,y,r);
end;
var x,y,r:integer;
begin
setwindowsize(400,400);
r:=10;
x1:=2*r;
x2:=200;
x3:=400-2*r;
y1:=2*r;
y2:=200;
y3:=400-2*r;
x:=x2;
y:=y2;
lockdrawing;
while y>y1 do
 begin
  clearwindow;
  trk;
  shar(x,y,r);
  sleep(10);
  x:=x+1;
  y:=y-1;
  redraw;
 end;
while y<y3 do
 begin
  clearwindow;
  trk;
  shar(x,y,r);
  sleep(10);
  //x:=x+1;
  y:=y+1;
  redraw;
 end;
while x>x1 do
 begin
  clearwindow;
  trk;
  shar(x,y,r);
  sleep(10);
  x:=x-1;
  //y:=y-1;
  redraw;
 end;
while y>y2 do
 begin
  clearwindow;
  trk;
  shar(x,y,r);
  sleep(10);
  //x:=x+1;
  y:=y-1;
  redraw;
 end;
while y>y1 do
 begin
  clearwindow;
  trk;
  shar(x,y,r);
  sleep(10);
  x:=x+1;
  y:=y-1;
  redraw;
 end;
end.

procedure rect(x,y,r:integer);
begin
setpencolor(clRed);
setbrushcolor(clRed);
rectangle(x-r,y-r,x+r,y+r);
end;