对于一个procedure过程，在其内部定义数组，只要不超空间或者递归报栈，不会出错吧==
但是这个程序运行后会出现202错误，并且F7跟踪显示在定义数组时出错==
真是费解啊
敢问吧里有大神能给解释解释或者有吧友遇到过同样问题吗？

program cube;
const t=1000000007;
var d,p,ii,k:longint;
a:array[0..100] of longint;
{************************************************************}
procedure hahaha;
begin
close(input);
close(output);
halt;
end;
{************************************************************}
procedure search1;
var b:array[0..1000,0..1000] of boolean;
f:array[0..1000,0..1000] of longint;
i,j,x,y:longint;
begin
hahaha;
end;
{************************************************************}
begin
readln(d,p);
if d=2 then search1;
hahaha;
end.

这是代码，有兴趣的可以自己拷贝下来试一下
表示过去从没出现过这个错误啊

嗯，又看了看【提问的艺术】，如果上文的某些说法不太礼貌（显得我是个伸手党）的话，包涵哈
我说说我采取的措施吧：
Ctrl+F9：202
F7：运行到要定义数组时出现【Program recieved signal SIGSEGV Segmentation fault】
然后就卡出来了= =
F8：上同= =
怎么回事呢？原来没遇到过这种错误的

PS.如果要试一试此程序，请输入2和任意的一个longint范围内的正整数

问题是这个程序意义何在？

“么”的拼音是mě

资源耗尽了吧

栈空间不是白送的 。令外你assign了吗就close？！

因为这个代码是一道奥赛题，在cena上测试，所以需要assign，但为了让代码更容易理解，我把很多东西（search过程的内容都删掉了。事实证明未删close的情况下是可以编译过的，这点没有影响。
如果需要，我可以贴整个代码，但那没意义啊，我只是想知道为何在procedure过程中不能定义数组。