For Player.TPlayer = Each TPlayer
For Player2.TPlayer = Each TPlayer
If Player\ord > Player2\ord Then Insert Player Before First TPlayer
Next
Next у кого больше ord, тот и становится первым. изначально у всех player ord=1, когда один из player прибавляется в ord, он действительно перемещается на начало, но если потом еще один player прибавится в ord, то цикл замыкается и игра зависает. как можно избавится от этого бага?
p.s.: Player2.TPlayer то же самое, что и без двойки.