经过大量排错，确定错误在一下三句话（好像算一句）
for subj:=1 to allsub do
  for p:=i downto 1 do
    pm[subj,grade[p,subj]]:=p;
在关闭的时候就会有runtime error 216错
好像看不出来是错的，但系统就是说我错。
其中subj,p,i,allsub:integer;
pm:array[1..10,1..200]of integer;
grade:array[1..70,1..10]of integer;
帮帮忙啊