b:=0;
for i:=1 to n do
Begin
p:=1+((b+m-1) mod (n-i+1));
for j:=1 to n-i do
Begin
if j<p then
Self.SGer.Cells[j,i]:=Self.SGer.Cells[j,i-1]
else
Self.SGer.Cells[j,i]:=Self.SGer.Cells[j+1,i-1];
End;

b:=p-1;
End;


人数：=10
间数：=7
次\人 1 2 3 4 5 6 7 8 9 10
1 1 2 3 4 5 6 8 9 10
2 1 2 3 5 6 8 9 10
3 1 3 5 6 8 9 10
4 3 5 6 8 9 10
5 5 6 8 9 10
6 5 8 9 10
7 5 8 9
8 8 9
9 9
10
人数：=10
间数：=6
次\人 1 2 3 4 5 6 7 8 9 10
1 1 2 3 4 5 7 8 9 10
2 1 3 4 5 7 8 9 10
3 1 3 4 5 7 8 10
4 1 3 4 5 8 10
5 1 3 4 8 10
6 1 3 4 10
7 3 4 10
8 3 4
9 3
10

人数：=10
间数：=5
次\人 1 2 3 4 5 6 7 8 9 10
1 1 2 3 4 6 7 8 9 10
2 1 2 3 4 6 7 8 9
3 1 2 3 4 7 8 9
4 1 3 4 7 8 9
5 1 3 4 7 8
6 1 3 4 7
7 3 4 7
8 3 7
9 3
10
人数：=10
间数：=4
次\人 1 2 3 4 5 6 7 8 9 10
1 1 2 3 5 6 7 8 9 10
2 1 2 3 5 6 7 9 10
3 1 3 5 6 7 9 10
4 1 3 5 6 9 10
5 1 5 6 9 10
6 1 5 6 9
7 1 5 6
8 5 6
9 5
10

人数：=10
间数：=3
次\人 1 2 3 4 5 6 7 8 9 10
1 1 2 4 5 6 7 8 9 10
2 1 2 4 5 7 8 9 10
3 1 2 4 5 7 8 10
4 1 4 5 7 8 10
5 1 4 5 8 10
6 4 5 8 10
7 4 5 10
8 4 10
9 4
10