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

Вот вам фантазмя на тему динамических массивов

Код:

Var
 A: Array of Array of Integer;
 i: Integer;
begin
 SetLength(A, 3);
 for i := 0 to High(A)
 do SetLength(A[i], i+1);
end.