Вращение закрашенного пятиугольника в центре экрана с изменением цвета

Program LR4;
Uses Graph,CRT;
 
 
  Type   Location = object
            masx,masy :array [1..6] of integer;
            constructor Init (initX, initY:integer);
            destructor Done;
            function GetX :integer;
            function GetY :integer;
           end;
 
  Constructor Location.Init (initX, initY : integer);
     var i:integer;
    Begin
          for i:=1 to 6 do
            begin
        masx[i]:=InitX;
        masy[i]:=InitY;
            end;
    End;
 
  Destructor Location.Done;
    Begin
    End;
 
  Function Location.GetX:integer;
     var i:integer;
    Begin
        for i:=1 to 6 do
      GetX:=masx[i];
    End;
 
  Function Location.GetY:integer;
     var i:integer;
    Begin
        for i:=1 to 6 do
      GetY:=masy[i];
    End;
 
{=============================================================================}
 
  Type  Arc = object (Location)
            radius,Nugol,Kugol:integer;
            Constructor Init (initX, initY, initR,initN, initK :integer);
                        Procedure coord(i:integer;  coo: ArcCoordsType);
            end;
 
  Constructor Arc.Init(initX, initY, initR,initN, initK :integer);
    var i:integer;
    Begin
         for i:=1 to 6 do
         begin
      masx[i]:=initX;
      masy[i]:=initY;
         end;
      radius:=initR;
          Nugol:=initN;
          Kugol:=initK;
    End;
 
  Procedure Arc.coord(i:integer;  coo: ArcCoordsType);
    var x1,y1:integer;
       Begin
       x1:=(GetMaxX)div 2;
       y1:=(GetMaxY)div 2;
         with coo do
         begin
         graph.Arc(x1,y1,0+i,72+i,100);
         GetArcCoords(coo);
         masx[1]:=Xstart;
         masy[1]:=Ystart;
         masx[2]:=Xend;
         masy[2]:=Yend;
 
         graph.Arc(x1,y1,72+i,144+i,100);
         GetArcCoords (coo);
         masx[3]:=Xend;
         masy[3]:=Yend;
 
         graph.Arc(x1,y1,144+i,216+i,100);
         GetArcCoords(coo);
         masx[4]:=Xend;
         masy[4]:=Yend;
 
         graph.Arc(x1,y1,216+i,288+i,100);
         GetArcCoords(coo);
         masx[5]:=Xend;
         masy[5]:=Yend;
 
         graph.Arc(x1,y1,288+i,360+i,100);
         GetArcCoords(coo);
         masx[6]:=Xend;
         masy[6]:=Yend;
         end;
       End;
 
{=============================================================================}
 
         Type    tm=array[1..6] of PointType;
         Figura = object (Arc)
                        Procedure pos(var p:tm);
            Procedure Show(p:tm); virtual;
                        Procedure Hide(p:tm); virtual;
           End;
 
  Procedure Figura.pos(var p:tm);
     var j:integer;
        Begin
          for j:=1 to 6 do
          with p[j] do
          begin
          x:=masx[j];
          y:=masy[j];
          end;
        End;
 
 
  Procedure Figura.Show(p:tm);
    Begin
          setcolor(random(getmaxcolor));
          fillpoly (6,p);
    End;
 
  Procedure Figura.Hide(p:tm);
    Begin
          setcolor(getbkcolor);
          fillpoly (6,p);
    End;
 
 
{=============================================================================}
 
  Type World = object
            Mode :integer;
            Driver :integer;
                        Procedure Initworld(gdr, gmode :integer);
            Procedure Endworld;
           End;
 
  Procedure World.Initworld(gdr, gmode :integer);
    Var rez :integer;
    Begin
      Driver:=gdr;
      Mode:=gmode;
      Initgraph(driver, mode,'');
      Rez:=Graphresult;
      If rez<>GrOK then
        Begin
          Writeln(GraphErrorMsg(rez));
          Halt(1);
        End;
    End;
 
  Procedure World.Endworld;
    Begin
          Closegraph;
    End;
{=============================================================================}
 
  Type parc = ^arc;
       pfigura = ^figura;
 
  Var   W :world;
        Pa :parc;
    Pf :pfigura;
         i:integer;
         p:tm;
         coo: ArcCoordsType;
  Begin
 
    w.initworld(detect, detect);
 
         repeat
          for i:=0 to 72 do
           begin
 
            pa:=new(parc,init(0,0,100,0,0));
            pa^.coord(i,coo);
            pf^.pos(p);
            pf^.Show(p);
            delay(10);
            pf^.Hide(p);
           end;
         until keypressed;
 
        w.endworld;
    readln;
        clrscr;
 
  End.