Проблема с массивами

[Seran4ek]

добрый день.
возникла такая проблема.
инициализирую массив размером в 90 000
провожу такой цикл

s:=0;
for i:=0 to high(monit_mas) do
  begin
    for j:=0 to high(monit_mas) do
      begin
         D1:=sqrt(sqr(monit_mas[i].x)+sqr(monit_mas[i].y));
         L[s]:=sqrt(sqr(z)+sqr(D1));
         s:=s+1;
      end;
  end;

Размер динамического массива доходит до нескольких десятков тысяч элементов. но при определенном их значении программа выдает ошибку и выкидывает окошко дебаггера с адресами флагами и регистрами О_о
а если же заменить L на динамический массив, то все нормально(считает правда долго)

SetLength(L, 0);
for i:=0 to high(monit_mas) do
  begin
    for j:=0 to high(monit_mas) do
      begin
         D1:=sqrt(sqr(monit_mas[i].x)+sqr(monit_mas[i].y));
         SetLength(L, High(L)+2);
         L[high(L)]:=sqrt(sqr(z)+sqr(D1));;
      end;
  end;

в чем проблема? может я не знаю о каких-то ограничениях в длине массива?


UPD
помоему я разобрался в чем проблема. сам натупил)

[xakkkkker]

А какого типа массив? и i,d1 ?