[AND_REY]

Подскажите пожалуйста. Как в массив A: array [1..100] of byte добавлять
массивы X1,X2,X3....: array [1..r] of byte где r = 1...5. Хотелось бы сделать чтото типа F: TFileStream;

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

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

Код:

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;