[KOOL]

Значит, неправильно проверяли. У меня работает. И это не совсем динамический массив. Вот объявлять переменную таким образом нельзя. Если что, взято отсюда: Алгоритмизация и программирование на Турбо Паскале: Учебное пособие - Новичков В.С., Парфилова Н.И., Пылькин А.Н. - М.:Горячая линия-Телеком, 2005. ISBN 5-93517-183-Х. страница 223.
И, наконец, полный 100% работаюший код:

Код:

program OpenArray;

procedure OA(var Arr : array of byte);
var i:byte;
begin
  for i:=Low(Arr) to High(Arr) do
    Arr[i]:=Random(255);
end;

var A:array[2..10] of byte; {Переменные - НЕ динамические массивы}
    B:array[1..20] of byte;
    i:byte;
begin
Randomize;
OA(A);
OA(B);
for i:=2 to 10 do
  Write(A[i], ' ');
Writeln;
for i:=1 to 20 do
  Write(B[i], ' ');
Readln;
end.

Короче говоря, учите теорию