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

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

Код:

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;