310       with ClansArray[i]^.Teams[0]^.Hedgehogs[0] do

   310       with ClansArray[i]^.Teams[0]^.Hedgehogs[0] do

   311          begin

   311          begin

   312          King:= true;

   312          King:= true;

   313          Hat:= 'crown';

   313          Hat:= 'crown';

   314          Gear^.Health:= hwRound(int2hwFloat(Gear^.Health)*_1_5);

   314          Gear^.Health:= hwRound(int2hwFloat(Gear^.Health)*_1_5);

   316          end

   315          end

   317       end;

   316       end;

   318 

   317 

   319 for t:= 0 to Pred(TeamsCount) do

   318 for t:= 0 to Pred(TeamsCount) do

   320    with TeamsArray[t]^ do

   319    with TeamsArray[t]^ do