free pascal 无效dos功能号 如何解决? 及错误产生原因

free pascal 很不稳定 最好能有别的错误 的原因及解决方法

我一般是把数组开小点，运行，然后再改回来，有时就行了。
附：
（A） DOS 错误代码：
1：无效DoS功能号
2：文件末找到
3：路径未找到
4：打开文件过多
5：禁止文件存取
6：无效文件句柄
12：无效文件存取代码
15：无效驱动器号
16：不能删除当前日录
17：不能跨驱动器改文件名

var s:real;

    i:integer;

begin

  for i:=1 to 100 do

    s:=s+1/i;

  writeln(s);

end.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息