我的这个冒泡排序算法，一次不会成功，求纠错！谢谢，找了一天了！

大笨钟

注：j-1为数组中最后一个数的下标
For i:=1 To j-2 Do
    begin
      For m:=i To j-2 Do
        begin
          If(num[m] < num[m+1]) Then
            begin
              max:= num[m+1];
              num[m+1]:=num[m];
              num[m]:= max;
            end;
        end;
    end;

小布袋

For m:=i To j-2 Do
看下这里