Произвольно меняется размер массива

procedure firstRwite;
  begin
   counterStructur:=0;
   varStructura.counterStructur:=counterStructur;
   a1:=high(arraygrid);
   lengthArrStruktur:=length(arraygrid)+1;//на одну больше, потому что первая запишется информация о массиве
  SetLength(arrStructure,lengthArrStruktur);//задаём размер массива
  varStructura.pozithion:=mernost;
  varStructura.razmer:=lengthArrStruktur;
  arrStructure[0]:=varStructura;
  counterStructur1:=1;
  writeln('lengthArrStruktur',lengthArrStruktur);//выводим переменную размера массива
  end;
 procedure arrVcicl0;
 var
 l:integer;
 begin
 counterStructur:=counterStructur+1;
 varStructura.counterStructur:=counterStructur;
 lengthArrStruktur:=length(arraygrid);//задаём переменную размера массива снова,
 writeln('length(arraygrid)',length(arraygrid));//выводим
 writeln('lengthArrStruktur',lengthArrStruktur);//выводим
 varStructura.pozithion:=lengthArrStruktur;
 b:=0;
 b1:=high(arraygrid[a]);//--------------------0
 varStructura.razmer:=length(arraygrid[a]);
 lengthArrStruktur:=highArrStruktur+b1;
 SetLength(arrStructure,lengthArrStruktur);
 arrStructure[counterStructur1+a]:=varStructura;
 counterStructur2:=lengthArrStruktur;
 end;

SetLength(arrStructure,1);
  arrVcicl[0]:=@arrVcicl0;
  arrVcicl[1]:=@arrVcicl1;
  arrVcicl[2]:=@arrVcicl2;
  arrVcicl[3]:=@arrVcicl3;
  arrVcicl[4]:=@vcuchu;
  arr1[0]:=@firstRwite;

procedure Vychislenie;
    begin
    a:=0;
    b:=0;
    c:=0;
    d:=0;
    e:=0;
    arr1[0];//----------------------------------0
   while a <= a1 do
   begin
   writeln('0');
   arrVcicl[0];//------------------0
    //arr1[1];
   //while b <= b1 do
   //begin
   //writeln('1');
   //arrVcicl[1];//------------------1
   // //arr1[2];
   //while c <= c1 do
   //begin
   //writeln('2');
   // arrVcicl[2];//------------------2
   // //arr1[3];
   //while d <= d1 do
   //begin
   //writeln('3');
   //arrVcicl[3];//------------------3
   ////arr2[3];
   //while e <= e1 do
   //begin
   //arrVcicl[4];//запись в файл кучу.
   //e:=e+1;
   //end;
   //d:=d+1;
   //  //arr2[3];
   //end;
   //c:=c+1;
   //  //arr2[2];
   //end;
   //   b:=b+1;
   //  //arr2[1];
   //end;
   a:=a+1;
     //arr2[0];
   end;
   closefile(fileMass);
   end;