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

uses graphabc;
var
  j:real;
procedure drow(j:real);
var
  x,y,i:integer;
  r:real;
  g:real = 1.5*pi;
begin
  moveto(window.Width div 2,window.Height div 2);
  repeat
    x:= window.Width div 2 + round(cos(g+j)*r);
    y:= window.Height div 2 - round(sin(g)*r);
    lineto(x,y);
    g-=0.01;
    if (g < -pi/2+0.2) and (i = 0) then begin
                                          moveto(window.Width div 2 + round(cos(5*pi/4+j)*300),window.Height div 2 - round(sin(5*pi/4)*300));
                                          lineto(x,y);
                                          i+=1;
                                        end else if (g < -4*pi/4-0.3) and (i = 1) then begin
                                                                                         moveto(window.Width div 2 + round(cos(5*pi/4+j)*300),window.Height div 2 - round(sin(5*pi/4)*300));
                                                                                         lineto(x,y);
                                                                                         i+=1;
                                                                                       end; 
    moveto(x,y);
    r+=0.2;
  until g < -7*pi/4; 
    lineto(x + round(cos(pi/4+j)*100),y - round(sin(pi/4)*100));    
end;
 
  
BEGIN
 
pen.Color:=rgb(255,48,48);
pen.Width:=4;
 
repeat
  lockdrawing;
  clearwindow(rgb(190,190,190));
  drow(j);
  redraw;
  j+=0.01;
until false;                     
END.

uses graphabc;
var
  j: real;
 
procedure drow(j: real);
  
  function XCoord(x: integer): integer;
  begin
    result := (WindowWidth div 2) + Round((x - (WindowWidth div 2)) * cos(j));
  end;
 
var
  x, y, i: integer;
  r: real;
  g: real = 1.5 * pi;
begin
  
  moveto(xcoord(window.Width div 2), window.Height div 2);
  repeat
    x := window.Width div 2 + round(cos(g {+ j}) * r);
    y := window.Height div 2 - round(sin(g) * r);
    lineto(xcoord(x), y);
    g -= 0.01;
    if ((g < -pi / 2 + 0.2) and (i = 0)) or
       ((g < -4 * pi / 4 - 0.3) and (i = 1)) then begin
      moveto(xcoord(window.Width div 2 + round(cos(5 * pi / 4 {+ j}) * 300)), window.Height div 2 - round(sin(5 * pi / 4) * 300));
      
      lineto(xcoord(x), y);
      i += 1;
    end (*else if (g < -4 * pi / 4 - 0.3) and (i = 1) then begin
      moveto(xcoord(window.Width div 2 + round(cos(5 * pi / 4 + j) * 300)), window.Height div 2 - round(sin(5 * pi / 4) * 300));
      lineto(xcoord(x), y);
      i += 1;
    end*); 
    moveto(xcoord(x), y);
    r += 0.2;
  until g < -7 * pi / 4; 
  lineto(xcoord(x + round(cos(pi / 4 {+ j}) * 100)), y - round(sin(pi / 4) * 100));    
end;
 
 
begin
  
  pen.Color := rgb(255, 48, 48);
  pen.Width := 4;
  
  lockdrawing;
  repeat
    clearwindow(rgb(190, 190, 190));
    drow(j);
    redraw;
    j += 0.01;
  until false;                     
  
end.

uses graphabc;
const
n = 4;
visota = 60;
shirina = 150;
shirina1 = 0; // измените на 40 , чтобы более точно меня понять
p = (2*pi)/n;
 
x = WindowWidth div 2;
y = WindowHeight div 2;
  
var
 p1:real = 0;
 
procedure lin;
var x1,y1,x2,y2:integer;
begin
x1:=x-round(cos(p1)*shirina);
y1:=y+round(sin(p1)*shirina1);
 x2:=x-round(cos(p1+p)*shirina);
 y2:=y+round(sin(p1+p)*shirina1);
 
for var i:=1 to n do
 begin
 line(x1,y1-visota,x2,y2-visota);
 line(x1,y1+visota,x2,y2+visota);
 
 end;
 line(x1,y1-visota,x1,y1+visota);
end;
 
 
begin
LockDrawing; 
repeat
 p1+=0.04;
 
 for var i:=1 to n do
 begin
 p1+=p;
 lin;
 end;
 
 sleep(30);
 Redraw; 
clearwindow;
 
until false;
 
end.