FOR #I:=0 TO 7 DO
FOR #J:=0 TO 7 DO
IF #input1[#I] > #input1[#J] THEN
#temp := #input1[#I];
#input1[#I] := #input1[#J];
#input1[#J] :=#temp;//x轴交换
#temp := #input2[#I];
#input2[#I] := #input2[#J];
#input2[#J] := #temp;//y轴交换
END_IF;
END_FOR;
END_FOR;

应该是这样的吧。