Написать программу в которой слово двигалось бы по часовой стрелке или против

uses graphABC,crt;
var x,y,x1,y1:integer;
    u:real;
begin
setwindowsize(800,600);
hidecursor;
x:=windowwidth div 2;
y:=windowheight div 2;
u:=0;
setpencolor(clRed);
setbrushcolor(clRed);
setpenwidth(5);
x1:=x+round(100*cos(u));
y1:=y-round(100*sin(u));
circle(x1,y1,10);
repeat
delay(50);
setpencolor(clWhite);
circle(x1,y1,10);
u:=u+0.04;
setpencolor(clRed);
x1:=x+round(100*cos(u));
y1:=y-round(100*sin(u));
circle(x1,y1,10);
until keypressed
end.

uses graphABC;
var x,y,r,x1,y1,d:integer;
    s:string;
    u:real;
begin
setwindowsize(500,500);
x:=windowwidth div 2;
y:=windowheight div 2;
s:='СЛОВО';
d:=length(s)*20 div 2;
r:=x-d-10;
u:=pi/2;
setfontcolor(clRed);
setfontsize(20);
repeat
clearwindow;
x1:=x+round((r-d)*cos(u));
y1:=y-round((r-d)*sin(u));
textout(x1,y1,s);
sleep(100);
u:=u-0.05;
until false
end.