t::=7;
Tn:array[0..7] of real;

FOR k:=1 TO t-1 BY 1 DO
FOR j:=1 TO t-k BY 1 DO
IF Tn[j]>Tn[j+1] THEN
temp:=Tn[j];
Tn[j]:=Tn[j+1];
Tn[j+1]:=temp;
END_IF;
END_FOR ;
END_FOR;


大家看看程序哪里有问题
思路：冒泡法排序，将数组从小到大排序
结果：运行结果怎么都不能正常排序
疑点：是不是第二个for循环嵌套有问题，如何弄？？？