Pascal收银程序编译通过后抛出exitcode 201错误，寻求技术排查

兄弟，先给你划重点：ExitCode 201在Free Pascal这类主流Pascal编译器里，就是范围检查错误（Range Check Error）——说白了就是你程序里有数组越界、变量值超出了声明的类型范围这类问题，编译器编译时没查出来，但运行时触发了保护机制直接退出。

既然你不想改现有程序结构，那可以按这几步来快速定位问题：

• 先给编译器加编译参数，强制输出详细错误位置：如果用Free Pascal，编译时加上 -Cr -v。-Cr是强制开启范围检查（哪怕你代码里没开这个选项），-v会让编译器输出运行时错误的具体行号，直接帮你定位到哪一行出问题，不用自己瞎试。
• 利用你看到过启动文本的线索：既然程序能启动并显示部分内容，说明错误是在后续运行步骤触发的。你可以在关键逻辑段（比如收银金额计算、商品数组操作的地方）临时加几个Writeln输出，比如Writeln('正在处理第', i, '个商品，当前金额：', total)，一步步缩小出错的范围，找到触发错误的那行代码。
• 重点检查这两类代码：
  • 所有数组/字符串的索引操作：Pascal里数组默认是从1开始索引的，如果你声明了items: array[1..5] of Real，却用了items[0]或者items[6]，肯定会触发这个错误；字符串同理，别用0去访问第一个字符。
  • 数值类型的范围：比如你用了Byte类型（只能存0-255），但计算时得到了负数或者超过255的数，也会触发范围检查错误，换成Integer这类范围更大的类型就能解决（这不算改结构，只是调整变量类型而已）。

要是你急着先让程序跑起来，也可以临时关闭范围检查（编译时加 -Cr- 参数），但这只是临时方案——错误根源还在，可能会导致程序计算出错或者莫名其妙崩溃，所以还是建议找到问题点修复。

内容的提问来源于stack exchange，提问作者Alvaro Habet Hulse