Вопрос как массив на 22 случайные чиса разтиражировать в цикле на 660 элементов на делфи?

[fdsas]

как массив на 22 случайные чиса разтиражировать в цикле на 660 элементов на делфи?

 

[0001-кен]

for i := 1 to 660 do a:=Succ(Random(22));

 

[вася4290]

for i:=0 to 29 do for j:=1 to 22 do b[22*i+j]:=a[j]; P.S. Нет никакой разницы, какие числа в массиве.