Изобразить на экране прямоугольник, вращающийся в плоскости экрана вокруг одной из своих вершин

uses graphABC;
type point=record
           x,y:integer;//координаты вершины
           r,u:real;//расстояние до центра и угол луча центр-вершина
           end;
     trg=array[1..4] of point;
//функция определения угла
function ugol(x1,y1,x2,y2:integer):real;
var r,c:real;
begin
r:=sqrt(sqr(x2-x1)+sqr(y2-y1));//расстояние от центра до вершины
c:=(x2-x1)/r; //косинус угла
if y2<y1 then ugol:=arccos(c)//вершина выше центра
else ugol:=2*pi-arccos(c);  //ниже или = y1
end;
//рисование треугольника
procedure draw(x,y:integer;a:trg);
var i:byte;
begin
//сам треугольник
setpencolor(clRed);
moveto(a[1].x,a[1].y);
for i:=2 to 4 do
lineto(a[i].x,a[i].y);
//точка в центре
setpencolor(clBlue);
setbrushcolor(clBlue);
circle(x,y,3);
end;
var a:trg;
    i:byte;
    y,xc,yc:integer;
begin
y:=windowheight div 2;
a[1].x:=10; a[1].y:=y+50;
a[2].x:=50; a[2].y:=y-60;
a[3].x:=100; a[3].y:=y+60;
a[4]:=a[1];
xc:=round((a[1].x+a[2].x+a[3].x)/3);
yc:=round((a[1].y+a[2].y+a[3].y)/3);
for i:=1 to 4 do
 begin
  a[i].r:=sqrt(sqr(a[i].x-xc)+sqr(a[i].y-yc));
  a[i].u:=ugol(xc,yc,a[i].x,a[i].y);
 end;
lockdrawing; 
repeat
clearwindow;
draw(xc,yc,a);
sleep(50);
xc:=xc+5;
for i:=1 to 4 do
 begin
  a[i].u:=a[i].u+0.1;
  a[i].x:=xc+round(a[i].r*cos(a[i].u));
  a[i].y:=yc-round(a[i].r*sin(a[i].u));
 end;
redraw;
until (xc>windowwidth)or false;
end.

//функция определения арккосинуса
function acos(x:real):real;
begin
if x=0 then acos:=pi/2
else if (x>0)and(x<=1) then acos:=arctan(sqrt(1-x*x)/x)
else if(x>=-1)and(x<0) then acos:=pi+arctan(sqrt(1-x*x)/x);
end;
//функция определения угла
function ugol(x1,y1,x2,y2:integer):real;
var r,c:real;
begin
r:=sqrt(sqr(x2-x1)+sqr(y2-y1));//расстояние от центра до вершины
c:=(x2-x1)/r; //косинус угла
if y2<y1 then ugol:=acos(c)//вершина выше центра
else ugol:=2*pi-acos(c);  //ниже или = y1
end;