Отобразить вращение прямоугольника, используя модуль crt

uses graphABC,crt;
type tochka=record  //тип точка с полями
            x,y:integer;//координаты
            u,r:real;//угол луча и расстояние до центра вращения
            end;
     mas=array[1..4] of tochka; //полигон из 4х-точек
//угол между лучем и осью Х
function Ugol(x0,y0,x,y:integer):real;
begin
if (x>x0)and(y<=y0) then Ugol:=arctan((y0-y)/(x-x0))//I четверть
else if (x>x0)and(y>y0) then Ugol:=arctan((y0-y)/(x-x0))+2*pi//IV четверть
else if x<x0 then  Ugol:=arctan((y0-y)/(x-x0))+pi//II-III четверти
else if x=x0 then
 begin
  if y<y0 then  Ugol:=pi/2//вертикально вверх
  else if y>y0 then Ugol:=3*pi/2//вертикально вниз
 end;
end;
//расстояние до точки
function Radius(x1,y1,x2,y2:integer):real;
begin
Radius:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
//вращение точки вокруг центра
procedure Vrach(x0,y0:integer;k:real;var a:mas);
var i:integer;
begin
for i:=1 to 4 do
 begin
  a[i].u:=a[i].u+k;
  a[i].x:=x0+round(a[i].r*cos(a[i].u));
  a[i].y:=y0-round(a[i].r*sin(a[i].u));
 end;
end;
//прямоугольник
procedure Rect(a:mas;x1,y1:integer);
begin
setpencolor(clRed);
line(a[1].x,a[1].y,a[2].x,a[2].y);
line(a[2].x,a[2].y,a[3].x,a[3].y);
line(a[3].x,a[3].y,a[4].x,a[4].y);
line(a[4].x,a[4].y,a[1].x,a[1].y);
setpencolor(clBlue);
circle(x1,y1,3);
floodfill(x1,y1,clBlue);
end;
 
//программа
var p:mas;
    xc,yc,x1,y1,i:integer;
    c:char;
begin
setwindowsize(500,500);
xc:=windowheight div 2;
yc:=xc;
p[1].x:=xc-100;p[1].y:=yc-50;
p[2].x:=xc+100;p[2].y:=yc-50;
p[3].x:=xc+100;p[3].y:=yc+50;
p[4].x:=xc-100;p[4].y:=yc+50;
writeln('Выберите точку внутри прямоугольника:');
repeat
write('x от ',p[1].x,' до ',p[2].x,' x=');
read(x1);
until(x1>p[1].x)and(x1<p[2].x);
repeat
write('y от ',p[1].y,' до ',p[3].y,' y=');
read(y1);
until(y1>p[1].y)and(y1<p[3].y);
for i:=1 to 4 do
 begin
  p[i].r:=Radius(x1,y1,p[i].x,p[i].y);
  p[i].u:=Ugol(x1,y1,p[i].x,p[i].y);
 end;
hidecursor;
clearwindow;
Rect(p,x1,y1);
lockdrawing;
repeat
  clearwindow;
  textout(xc-50,20,'Выход Esc');
  Vrach(x1,y1,0.1,p);
  Rect(p,x1,y1);
  delay(100);
  redraw;
  if keypressed then c:=readkey;
until c=#27;
end.

uses crt;
var r:array[1..96,1..2]of real;
    a,da,l,cf:real;
    i,x,y,xC,yC:integer;
    ch:char;
begin
  xC:=40;
  yC:=13;
  da:=20/180*Pi;
  cf:=5/7;
  for i:=1 to 24 do
  begin
    r[i,1]:=i-12;
    r[i,2]:=12;
    r[i+48,1]:=i-13;
    r[i+48,2]:=-12;
  end;
  for i:=25 to 48 do
  begin
    r[i,1]:=12;
    r[i,2]:=36-i;
    r[i+48,1]:=-12;
    r[i+48,2]:=37-i;
  end;
  ch:=#0;
  repeat
    clrscr;
    for i:=1 to 96 do
    begin
      x:=xC+Round(r[i,1]);
      y:=yC-Round(r[i,2]*cf);
      gotoxy(x,y);
      write('*');
      if r[i,1]=0 then 
        if r[i,2]>0 then a:=Pi/2
        else  a:=-Pi/2
      else a:=arctan(r[i,2]/r[i,1]);
      if r[i,1]<0 then a:=a+Pi;
      l:=sqrt(r[i,1]*r[i,1]+r[i,2]*r[i,2]);
      a:=a+da;
      r[i,1]:=l*cos(a);
      r[i,2]:=l*sin(a);
    end;
    delay(200);
    if keypressed then ch:=readkey;
  until ch=#27;
end.

 if keypressed then ch:=readkey;
  until ch=#27;

until keypressed;

da:=20/180*Pi;