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

uses graphABC,crt;
//процедура вращения точки около центра
procedure Vrash(a:real;var x,y:integer;x0,y0,d:integer);
begin
a:=a*pi/180;
x:=x0+round(d*cos(a));
y:=y0-round(d*sin(a));
end;
 
var x0,y0,ax,ay,bx,by,cx,cy,d:integer;//координаты центра и вершин, d-расстояние от центра до вершин
    aa,ab,ac:real;//углы от оси Х против часовой стрелки
begin
hidecursor;
textout(250,30,'Выход- Esc');
x0:=windowwidth div 2;y0:=windowheight div 2;
aa:=90;ab:=210;ac:=330;
d:=100;
ax:=x0+round(d*cos(pi*aa/180));
ay:=y0-round(d*sin(pi*aa/180));
bx:=x0+round(d*cos(pi*ab/180));
by:=y0-round(d*sin(pi*ab/180));
cx:=x0+round(d*cos(pi*ac/180));
cy:=y0-round(d*sin(pi*ac/180));
Setpencolor(clRed);
setpenwidth(3);
lockdrawing;
repeat
clearwindow;
Vrash(aa,ax,ay,x0,y0,d);
Vrash(ab,bx,by,x0,y0,d);
Vrash(ac,cx,cy,x0,y0,d);
line(ax,ay,bx,by);
line(ax,ay,cx,cy);
line(cx,cy,bx,by);
redraw;
sleep(50);
aa:=aa+2;ab:=ab+2;ac:=ac+2;
until keypressed;
end.

uses crt,graphABC;
var mx,xc,yc,tx,ty,r:integer;
begin
mx:=500;
setwindowsize(mx,mx);
repeat
writeln('Введите координаты центра окружности от 100 до ',mx-100,':');
read(xc,yc);
until(xc>=100)and(xc<=mx-100)and(yc>=100)and(yc<=mx-100);
writeln('Введите координаты точки на окружности:');
repeat
write('x от 1 до ',xc-10,' или от ',xc+10,' до ',mx-1,' x=');
read(tx);
until((tx>0)and(tx<=xc-10))or((tx>=xc+10)and(tx<=mx-10));
repeat
write('y от 1 до ',yc-10,' или от ',yc+10,' до ',mx-1,' y=');
read(ty);
until((ty>0)and(ty<=yc-10))or((ty>=yc+10)and(ty<=mx-10));
r:=round(sqrt(sqr(xc-tx)+sqr(yc-ty)));
hidecursor;
clearwindow;
circle(xc,yc,r);
setpenwidth(3);
circle(xc,yc,2);
circle(tx,ty,2);
end.