用西门子SCL语言写一段冒泡排序程序

西门子SIMATIC S7编程语言SCL(Siemens Communication Language)主要用于梯形图(TP)之外的数据处理和文本编程。下面是一个简单的冒泡排序算法的SCL代码示例：

Data:
    ListOfNumbers List OF INT; // 定义一个整数列表

Function Block:
    SortList(ListToSort: IN List OF INT): BOOL;
        VAR
            IsSwapped: BOOL := TRUE; // 标记是否发生过交换
            Index: INDEX := 0; // 当前遍历索引
            MaxIndex: INDEX := Count(ListToSort); // 最大索引

        BEGIN
            WHILE Index < MaxIndex DO
                IF IsSwapped THEN
                    Index := Index + 1; // 如果没交换，则下一个元素
                ELSE
                    IsSwapped := FALSE; // 如果已排序，则进入下一轮
                    FOR InnerIndex FROM Index + 1 TO MaxIndex DO
                        IF ListToSort[Index] > ListToSort[InnerIndex] THEN
                            Swap(ListToSort[Index], ListToSort[InnerIndex]); // 交换位置
                            IsSwapped := TRUE;
                        END_IF;
                    ENDFOR;
                END_IF;
            ENDDO;

            RETURN IsSwapped; // 退出循环说明已经完成排序，返回是否进行了交换
        END机能块;

    ...

Function Call:
    ListOfNumbers := [5, 2, 8, 1, 9]; // 初始化要排序的列表
    Result := SortList(ListOfNumbers);