Pascal/Turbo Pascal - llenar vector de numeros aleatorios con rango

Type

    {Definiendo el tipo de vector "TVector", que es un arreglo de "Enteros"}

    {Para accesar a sus elementos, se van a utilizar subíndices desde}

    {"1" hasta "20"}

    TVector = Array[1..20] of Integer;

{Definición de la variable "MiVector", que es de tipo "TVector"}

Var

    MiVector: TVector;

{Entrega un número entero al azar entre  "A" y "B"}

Function Rnd(A, B :Integer) :LongInt;

    Begin

        Randomize;

        If (A>B) then

            Rnd := Rnd(B, A)

        Else

             Rnd := Random(B-A+1)+A+1;

    End; {Rnd}

{Llenar un array con valores aleatorios}

Procedure FillVect(Var V  :TVector);

    Var

        I :Integer;

    Begin

        For I := 1 to SizeOf(V) Div SizeOf(V[1]) do

            V[I] := Rnd(20, 30);

    End; {FillVect}