100                 trammoc[TAmmoStrId(b)]:= s;

   100                 trammoc[TAmmoStrId(b)]:= s;

   101             4: if (b >=0) and (b <= ord(High(TAmmoStrId))) then

   101             4: if (b >=0) and (b <= ord(High(TAmmoStrId))) then

   102                 trammod[TAmmoStrId(b)]:= s;

   102                 trammod[TAmmoStrId(b)]:= s;

   103             5: if (b >=0) and (b <= ord(High(TGoalStrId))) then

   103             5: if (b >=0) and (b <= ord(High(TGoalStrId))) then

   104                 trgoal[TGoalStrId(b)]:= s;

   104                 trgoal[TGoalStrId(b)]:= s;

   105            end;

   107            end;

   106        end;

   108        end;

   107    pfsClose(f);

   109    pfsClose(f);

   108    end;

   110    end;

   109 end;

   111 end;