修正错误?

我定义了一个一维数组和二维数组
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[i]:=0;
        Q[i]:=0;
        QP[i]:=0;
        QC[i]:=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;删除就能通过。为何；
如果是你你应该如何写，写下代码。
请立刻回答。