Движение крутящейся фигуры по кругу

uses crt,graph;
procedure M(x,y,c:integer;u1,u2,u3:real);
var x1,y1,x2,y2,x3,y3,x4,y4:integer;
begin
setcolor(c);
x1:=x+round(60*cos(u1));
y1:=y-round(60*sin(u1));
x2:=x+round(60*cos(u2));
y2:=y-round(60*sin(u2));
x3:=x+round(85*cos(u3));
y3:=y-round(85*sin(u3));
x4:=(x+x3) div 2;
y4:=(y+y3) div 2;
line(x,y,x1,y1);
line(x,y,x4,y4);
line(x2,y2,x4,y4);
line(x2,y2,x3,y3);
end;
var x,y,x1,y1:integer;
    u1,u2,u3,u4:real;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
u1:=-pi/2;
u2:=0;
u3:=-pi/4;
u4:=0;
repeat
x1:=x+round(150*cos(u4));
y1:=y-round(150*sin(u4));
M(x1,y1,12,u1,u2,u3);
delay(100);
M(x1,y1,0,u1,u2,u3);
u1:=u1-0.1;
u2:=u2-0.1;
u3:=u3-0.1;
u4:=u4+0.1;
until keypressed;
end.

uses crt,graphABC;
procedure M(x,y,c:integer;u1,u2,u3:real);
var x1,y1,x2,y2,x3,y3,x4,y4:integer;
begin
setpencolor(clRed);
x1:=x+round(60*cos(u1));
y1:=y-round(60*sin(u1));
x2:=x+round(60*cos(u2));
y2:=y-round(60*sin(u2));
x3:=x+round(85*cos(u3));
y3:=y-round(85*sin(u3));
x4:=(x+x3) div 2;
y4:=(y+y3) div 2;
line(x,y,x1,y1);
line(x,y,x4,y4);
line(x2,y2,x4,y4);
line(x2,y2,x3,y3);
end;
var x,y,x1,y1:integer;
    u1,u2,u3,u4:real;
begin
hidecursor;
x:=windowwidth div 2;
y:=windowheight div 2;
u1:=-pi/2;
u2:=0;
u3:=-pi/4;
u4:=0;
lockdrawing;
repeat
clearwindow;
x1:=x+round(150*cos(u4));
y1:=y-round(150*sin(u4));
M(x1,y1,12,u1,u2,u3);
delay(100);
u1:=u1-0.1;
u2:=u2-0.1;
u3:=u3-0.1;
u4:=u4+0.1;
redraw;
until keypressed;
end.