数组内相同值的查找及数组优先级重新排序生成一个新的数组

定义下标范围相同的四个数组。
FC 数据定义及代码如图。
主要代码：
//冒泡排序
#数组下标下限 := LOWER_BOUND(ARR := #IN_ARRAY, DIM := 1);
#数组下标上限 := UPPER_BOUND(ARR := #IN_ARRAY, DIM := 1);
FOR #I := #数组下标下限 TO #数组下标上限 - 1 DO
    FOR #J := #I + 1 TO #数组下标上限 DO
        IF #IN_ARRAY[#I]> #IN_ARRAY[#J] THEN
            #数据交换 := #IN_ARRAY[#I];
            #IN_ARRAY[#I] := #IN_ARRAY[#J];
            #IN_ARRAY[#J] := #数据交换;
            //索引交换
            #数据交换 := #IN_ARRAY_INDEX[#I];
            #IN_ARRAY_INDEX[#I] := #IN_ARRAY_INDEX[#J];
            #IN_ARRAY_INDEX[#J] := #数据交换;
        END_IF;
    END_FOR;
END_FOR;
//下面整理数据
#整理 :=#数组下标下限;
FOR #I := #数组下标下限 + 1 TO #数组下标上限 - 1 DO
    IF #IN_ARRAY[#I] = #IN_ARRAY[#I+1] THEN
        #OUT_ARRAY[#整理] := #IN_ARRAY[#I];
        #OUT_ARRAY_IINDEX[#整理] :=  #IN_ARRAY_INDEX[#I];
        #OUT_ARRAY[#整理+1] := #IN_ARRAY[#I+1];
        #OUT_ARRAY_IINDEX[#整理 + 1] := #IN_ARRAY_INDEX[#I + 1];
        #整理 := #整理 + 1;
    END_IF; ;
END_FOR;