Движение шарика вдоль прямоугольника,(по касательной) по часовой стрелке.не могу написать поворот по ребру

uses graphABC;
procedure rect(x1,y1,x2,y2:integer);
begin
setpencolor(clLime);
setbrushcolor(clLime);
rectangle(x1,y1,x2,y2);
end;
procedure sharik(x,y,r:integer);
begin
setpencolor(clRed);
setbrushcolor(clRed);
circle(x,y,r);
end;
 
var x1,y1,x2,y2,r,x,y:integer;
    u:real;
begin
centerwindow;
x1:=100;
y1:=100;
x2:=windowwidth-100;
y2:=windowheight-100;
r:=20;
x:=x1;
y:=y1-r;
rect(x1,y1,x2,y2);
sharik(x,y,r);
lockdrawing;
repeat
while x<=x2 do
 begin
  clearwindow;
  rect(x1,y1,x2,y2);
  sharik(x,y,r);
  sleep(20);
  x:=x+5;
  redraw;
 end;
u:=pi/2;
x:=x2;
y:=y1-r;
while u>0 do
 begin
  clearwindow;
  rect(x1,y1,x2,y2);
  sharik(x,y,r);
  sleep(10);
  u:=u-0.1;
  x:=x2+round(r*cos(u));
  y:=y1-round(r*sin(u));
  redraw;
 end;
while y<=y2 do
 begin
  clearwindow;
  rect(x1,y1,x2,y2);
  sharik(x,y,r);
  sleep(20);
  y:=y+5;
  redraw;
 end;
u:=0;
x:=x2+r;
y:=y2;
while u>-pi/2 do
 begin
  clearwindow;
  rect(x1,y1,x2,y2);
  sharik(x,y,r);
  sleep(10);
  u:=u-0.1;
  x:=x2+round(r*cos(u));
  y:=y2-round(r*sin(u));
  redraw;
 end;
while x>=x1 do
 begin
  clearwindow;
  rect(x1,y1,x2,y2);
  sharik(x,y,r);
  sleep(20);
  x:=x-5;
  redraw;
 end;
u:=-pi/2;
x:=x1;
y:=y2+r;
while u>-pi do
 begin
  clearwindow;
  rect(x1,y1,x2,y2);
  sharik(x,y,r);
  sleep(10);
  u:=u-0.1;
  x:=x1+round(r*cos(u));
  y:=y2-round(r*sin(u));
  redraw;
 end;
while y>=y1 do
 begin
  clearwindow;
  rect(x1,y1,x2,y2);
  sharik(x,y,r);
  sleep(20);
  y:=y-5;
  redraw;
 end;
u:=pi;
x:=x1-r;
y:=y1;
while u>pi/2 do
 begin
  clearwindow;
  rect(x1,y1,x2,y2);
  sharik(x,y,r);
  sleep(10);
  u:=u-0.1;
  x:=x1+round(r*cos(u));
  y:=y1-round(r*sin(u));
  redraw;
 end;
until false;
end.