修正错误?(50分)

我定义了一个一维数组和二维数组
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, Menus, TeeTools,
TeeDragPoint, Series, TeeBezie, DBChart, Grids, TeeChartGrid, StdCtrls,
Buttons, TeeURL, TeeSeriesTextEd, TeePageNumTool, TeeFunci, DB, TeeData,
TeeEdit, TeeNavigator, Spin,IniFiles, DBTables;

type
Ay=array [1..288] OF real;
Ay2=array [1..288,1..288] of real;

负初始值时
Var p,Q,QP,QC:ay;QpD,Qc1:ay2;i,j,w,z:integer;Min,min1,S,K:real;
BoolQ:Boolean;
begin

FOr i:=1 To 288 Do
Begin
p:=0;
Q:=0;
QP:=0;
QC:=0;
FOr j:=1 to 288 Do
Begin

QPD[i,j]:=0;
Qc1[i,j]:=0;
End;

End;
End;
提示下错误：
project paraopconf.exe raised exception class EStackOverflow with message 'Stack
Overflow'.Process Stopped .Use Step Or Run To Continue.
如果我把 Qc1[i,j]:=0;删除就能通过。为何；
如果是你你应该如何写，写下代码。
请立刻回答。

堆溢出。
不要在程序开始前定义那么多耗内存的变量。
你自己算算，你的变量占多少内存了，这些
变量是要放到堆里的。

如果是你你应该如何写，写下代码。

没人知道吗？？？

调编译器的堆栈大小看看

多人接受答案了。