在 Pascal 中实现冒泡排序时出现奇怪的运行时错误

Question

该代码片段不仅会导致运行时错误，如果我使用调试器运行它，它还会使 FPC 关闭。

procedure sortplayersbyscore(var vAux:tplayers);

    procedure swap(var a:trplayers;var b:trplayers);

    var
        rAux:trplayers;

    begin
        rAux:=a;
        a:=b;
        b:=rAux;
    end;

var
    i,j:integer;
    sorted:boolean;

begin
    vAux:=playersarray;
    i:=1;
    sorted:=false;
    while (i <= MAXPLAYERS -1) and not sorted do
    begin
        j:=1;
        sorted:=true;
        while (j <= MAXPLAYERS -i) do
        begin
            if (vAux[j].score < vAux[j+1].score) then
            begin
                swap(vAux[j],vAux[j+1]);
                sorted:=false;
            end;
            inc(j);
        end;
        inc(i);
    end;
end;

代码本身是一个非常大的源文件的一部分，我可以发布整个内容，但导致错误的只是那一堆行。调试器在以下行终止：

swap(vAux[j],vAux[j+1]);

tplayers 只是定义为记录数组的类型，其中包含分数（整数）以及一堆其他变量。 trplayers 是上述记录的类型。我完全不知所措； FPC（不在调试模式下）会发出超出范围的错误，但在我的观察下，我看到我尝试读取的变量存在。非常感谢任何帮助！

Answer 1

rAux:trplayers; 您是否输入了错误的符号或者此处的类型名称中确实包含“r”？

Answer 2

它看起来有效（除了拼写错误）...所以让我们尝试一些简单的事情。
中止时“j”的值是多少？
如果调试器没有告诉您，请尝试

writeln ('j = ', j);

在“交换”调用之前添加：。

正如 Yochai 的问题所暗示的那样，您的数组的尺寸至少需要从
1（或更低）到 MAXPLAYERS（或更大）。 （即：0..MAXPLAYERS-1 不起作用，
但 1..MAXPLAYERS 应该。）