Функция рекурсивного заполнения массива

[AngryProj]

Помогите составить рекурсивную функцию заполнения одномерного массива случайными числами.
Проблема именно в использовании рекурсии в контексте данной задачи.

[Serge_Bliznykov]

А почему функцию? что она должна вернуть?

Ну и дебилизм использовать рекурсию там, где можно (и нужно) обойтись обычным циклом.

но, собственно, извольте:

function FillMasRandom(var A : Tmas; n : integer) : boolean;
begin
  if n<0 then FillMasRandom := false
  else begin
     A[n] := Random(100); 
     if n>1 then FillMasRandom := FillMasRandom(A, n-1);
  end;
end;

p.s. разумеется, код писал прямо тут, на форуме и не проверял!