Как решить конфликт типов при передаче массива строк в процедуру?

[Kronos913]

Procedure aaa(bbb :array of string)

При вот таком коде все работает ок

var bbb:array[1..5] of string

А при вот таком выдает ошибку:

var bbb:array[1..5] of string[30]

Вопрос: как сделать так, чтобы массив второго типа можно было завести в процедуру?
При чем не зависимо от заданной длины строк

[evg_m]

1.

type
  TMyarr: array[1..5] of string [30];

зачеркнутое можно (при необходимости и/или желании) пропустить

procedure aaa(bbb: TMyArr);

var
  bbb: TMyarr;

2. быть может пройдет и так

aaa ( [bbb[1], bbb[2], ... bbb[5] ]);