Hi, I looked at your prgm and it's a good idea and nice to play with a lot of players but some optimization can be done.
There is some places you can erase ) and you can erase all labels and replace them with While like this:
If P>9 or P<2
While P>9 or P<2
For sure, there is a lot more to optimize but one thing at the time.
Beside this, it's great !