//array[x1,x2,x3,x4,x5].Var sl:Tstringlist; i,j,k,l,m:integer;begin sl:Tstringlist.Create; sl.add(IntToStr(x1)); sl.add(IntToStr(x2)); sl.add(IntToStr(x3)); sl.add(IntToStr(x4)); sl.add(IntToStr(x5)); for i:= 0 to x1-1 Do begin for j:= 0 to x2-1 Do begin for k:= 0 to x3-1 Do begin for l:= 0 to x4-1 Do begin for m:= 0 to x5-1 Do begin sl.add(IntToStr(data[i,j,k,l,m])); end; end; end; end; end; sl.free;end;
