Ошибка переполнения стека

[Cannibal]

в программе на выделенной строке вылетает ошибка переполнения стека, еолько не пойму из-за чего

procedure TForm1.N2Click(Sender: TObject);
type mas=array[0..100000]of real;

var a,b,h,e,int1,int2,s:real;
    x,y:mas;
    i,N:longint;
begin a:=strtofloat(edit2.Text);
      b:=strtofloat(edit3.Text);
      h:=b-a;
      e:=strtofloat(edit5.Text);
      n:=1;
      int2:=h*(b-a)/2;
      repeat int1:=int2;
             h:=h/2;
             n:=n*2;
             x[0]:=a;
             for i:=1 to n do
                 x[i]:=x[i-1]+h;
             for i:=1 to n do
                 recogn(changeVar(edit1.Text,'x',x[i]),y[i]);
             s:=(y[0]+y[n])/2;
             for i:=1 to n-1 do
                 s:=s+y[i];
             int2:=h*s;
      until abs(int1-int2)<e;
end;

[Jeni]

В коде объявлено x,y:mas - это 2*100000*8=1,2Мб памяти, причем эта память выделяется в стеке, т.к. переменные x и y локальные. По умолчанию для стека выделяется 1 Мб. Можно или использовать динамические массивы или в настройках проекта увеличить предельный размер стека.