Как задать угол поворота прямоугольника(важно именно его)

uses graphABC;
type tpoint=record
            x,y:integer;
            u:real;
            end;
     mas=array[1..5] of tpoint;       
procedure rect(m:mas);
begin
line(m[1].x,m[1].y,m[2].x,m[2].y);
line(m[2].x,m[2].y,m[3].x,m[3].y);            
line(m[3].x,m[3].y,m[4].x,m[4].y);
line(m[1].x,m[1].y,m[4].x,m[4].y);
end;
var p:mas;
    c,w,h:integer;
    r,a:real;
begin
setwindowsize(400,400);
centerwindow;
c:=200;//центр
w:=150;//длина прямоугольника
h:=80;//ширина прямоугольника
r:=sqrt(w*w+h*h);//радиус вращения вершин
a:=arctan(h/w);//острый угол на правую верхнюю вершину
//координаты и углы вершин
p[1].x:=c-w div 2;
p[1].y:=c-h div 2;
p[1].u:=pi-a;
p[2].x:=c+w div 2;
p[2].y:=c-h div 2;
p[2].u:=a;
p[3].x:=c+w div 2;
p[3].y:=c+h div 2;
p[3].u:=-a;
p[4].x:=c-w div 2;
p[4].y:=c+h div 2;
p[4].u:=pi+a;
rect(p);
lockdrawing;
repeat
clearwindow;
for var i:=1 to 4 do
 begin
  p[i].u:=p[i].u+0.1;
  p[i].x:=c+round(r*cos(p[i].u));
  p[i].y:=c+round(r*sin(p[i].u));//по часовой стрелке( - против)
 end;
rect(p); 
sleep(100);
redraw;
until false;  
 
end.

uses GraphABC;
const
  Width = 200;
  Height = 100;
 
function GetAngle(x, y, x2, y2: integer): real;
begin
  var angle := Abs(RadToDeg(ArcTan((y2 - y) / (x2 - x))));
  if (x2 = x) and (y2 = y) then Result := 0
      else
  if x2 > x then
    if y2 > y then Result := angle else Result := 270 + 90 - angle
      else
  if y2 > y then Result := 180 - angle else Result := 180 + angle;
end;
 
function Distance(x, y, x2, y2: integer):= Sqrt(Sqr(x2 - x) + Sqr(y2 - y));
 
function DCos(a: real):= Cos(DegToRad(a));
 
function DSin(a: real):= Sin(DegToRad(a));
 
procedure RLine(x, y, x1, y1: real):=Line(Round(x), Round(y), Round(x1), Round(y1));
 
begin
  LockDrawing();
  var mX := Window.Width div 2; // Центр окна по оси X.
  var mY := Window.Height div 2; // Центр окна по оси Y.
  
  var W := Width div 2; // Половина ширины прямоугольника.
  var H := Height div 2; // Половина высоты прямоугольника.
  
  var mW := mX - W;
  var mH := mY - H;
  var pW := mX + W;
  var pH := mY + H;
  
  var R := Distance(mX, mY, mW, mH); // Вычисление радиуса окружности, в которую вписан прямоугольник.
  
  var Aang := GetAngle(mX, mY, mW, mH);
  var Bang := GetAngle(mX, mY, pW, mH);
  var Cang := GetAngle(mX, mY, pW, pH);
  var Dang := GetAngle(mX, mY, mW, pH);
  
  while true do
    for var angle := 0 to 360 do
    begin
      ClearWindow();
      var Ax := mX + R * DCos(Aang + angle);
      var Ay := mY + R * DSin(Aang + angle);
      var Bx := mX + R * DCos(Bang + angle);
      var By := mY + R * DSin(Bang + angle);
      var Cx := mX + R * DCos(Cang + angle);
      var Cy := mY + R * DSin(Cang + angle);
      var Dx := mX + R * DCos(Dang + angle);
      var Dy := mY + R * DSin(Dang + angle);
      RLine(Ax, Ay, Bx, By);
      RLine(Bx, By, Cx, Cy);
      RLine(Cx, Cy, Dx, Dy);
      RLine(Dx, Dy, Ax, Ay);
      Redraw();
    end;
end.

uses GraphABC;
const
  Width = 200;
  Height = 100;
 
function GetAngle(x, y, x2, y2: integer): real;
begin
  var angle := Abs(RadToDeg(ArcTan((y2 - y) / (x2 - x))));
  if (x2 = x) and (y2 = y) then Result := 0
      else
  if x2 > x then
    if y2 > y then Result := DegToRad(angle) else Result := DegToRad(270 + 90 - angle)
      else
  if y2 > y then Result := DegToRad(180 - angle) else Result := DegToRad(180 + angle);
end;
 
function Distance(x, y, x2, y2: integer):= Sqrt(Sqr(x2 - x) + Sqr(y2 - y));
 
procedure RLine(x, y, x1, y1: real):=Line(Round(x), Round(y), Round(x1), Round(y1));
 
begin
  LockDrawing();
  var mX := Window.Width div 2; // Центр окна по оси X.
  var mY := Window.Height div 2; // Центр окна по оси Y.
  
  var W := Width div 2; // Половина ширины прямоугольника.
  var H := Height div 2; // Половина высоты прямоугольника.
  
  var mW := mX - W;
  var mH := mY - H;
  var pW := mX + W;
  var pH := mY + H;
  
  var R := Distance(mX, mY, mW, mH); // Вычисление радиуса окружности, в которую вписан прямоугольник.
  
  var Aang := GetAngle(mX, mY, mW, mH);
  var Bang := GetAngle(mX, mY, pW, mH);
  var Cang := GetAngle(mX, mY, pW, pH);
  var Dang := GetAngle(mX, mY, mW, pH);
  
  var MaxAngle := DegToRad(360);
  var Angle:=0.0;
  
  while true do
  begin
    while Angle < MaxAngle do
    begin
      ClearWindow();
      var Ax := mX + R * Cos(Aang + angle);
      var Ay := mY + R * Sin(Aang + angle);
      var Bx := mX + R * Cos(Bang + angle);
      var By := mY + R * Sin(Bang + angle);
      var Cx := mX + R * Cos(Cang + angle);
      var Cy := mY + R * Sin(Cang + angle);
      var Dx := mX + R * Cos(Dang + angle);
      var Dy := mY + R * Sin(Dang + angle);
      RLine(Ax, Ay, Bx, By);
      RLine(Bx, By, Cx, Cy);
      RLine(Cx, Cy, Dx, Dy);
      RLine(Dx, Dy, Ax, Ay);
      Redraw();
      Angle += 0.05ж
    end;
    Angle := 0.0;
  end;
end.