FPC中在for循环内使用break遭编译报错，寻求解决办法

错误原因分析 #

1. Pascal的break使用限制：标准Pascal里break语句无法直接终止for循环，它仅适用于repeat或while循环结构。
2. 代码结构错误：外层for i := 1 to n do后直接写了marker := false;，未被包含在begin...end块中，导致后续代码块和for循环逻辑脱节，语法混乱。
3. 数组越界风险：内层循环j := 1 to n会导致访问data[j+1]时超出数组下标（当j=n时，j+1=n+1，超出数组范围）。

修复后的代码 #

Procedure Sort(var data : arr; j : integer);
var
    temp: integer;
begin
    temp := data[j];
    data[j] := data[j + 1];
    data[j + 1] := temp;
end;

Procedure sortDescending(var data : arr; n : integer);
var
    i, j : integer;
    marker : boolean;
begin
    i := 1;
    while i <= n do
    begin
        marker := false;
        // 修正内层循环范围，避免数组越界
        for j := 1 to n - 1 do
        begin
            if(data[j] < data[j + 1]) then
            begin
                Sort(data, j);
                marker := true;
            end;
        end;
        // 无交换操作则退出循环
        if not marker then
            break;
        i := i + 1;
    end;
end;

额外优化建议 #

冒泡排序每一轮都会将当前未排序部分的最小元素沉到末尾，后续循环无需再比较已排好的元素，可将内层循环改为j := 1 to n - i，减少不必要的比较操作，提升效率。

内容的提问来源于stack exchange，提问作者Muhammad Bayu Wicaksana