[Страдалецъ]

Если вопрос только по работе с динамическим массивом, то так:

Код:

Var
 A: Array of Real;
 ArrSize,i: Integer;
begin 
 ArrSize := 20;
 SetLength(A, ArrSize);
 for i := 0 to ArrSize
 do A[i] := Random(10);
 ArrSize := 40;
 SetLength(A, ArrSize);
 for i := 0 to ArrSize
 do A[i] := Random(10);
end;