[Страдалецъ]

Видимо вы хотите это:

Код:

1 2 3 4 5 6 7 8 9

Var   A: Array[1..100] of Array of Byte;   i: Integer; begin  for i := 1 to 100  do begin         SetLength(A[i],Random(5)+1);      end; end;