定义一个二维数组
InputValue:ARRAY[0..1,0..6] OF REAL;
InputValue[0] 对应 X
InputValue[1] 对应 Y

//排序
REPEAT

swap := FALSE;
FOR index := 6 TO 2 BY -1 DO
IF InputValue[0,index-1] > InputValue[0,index] THEN
swapValue := InputValue[0,index];
InputValue[0,index] := InputValue[0,index-1];
InputValue[0,index-1] := swapValue;

swapValue := InputValue[1,index];
InputValue[1,index] := InputValue[1,index-1];
InputValue[1,index-1] := swapValue;

swap := TRUE;
END_IF;
END_FOR;

UNTIL NOT swap

END_REPEAT;
对X排序的同时，交换Y