Подпрограммы для создания динамических массивов

function Arr<T>(params a: array of T): array of T;
        Возвращает массив, заполненный указанными значениями
function Arr<T>(a: sequence of T): array of T;
        Возвращает массив, заполненный значениями из последовательнсти
function ArrFill<T>(count: integer; x: T): array of T;
        Возвращает массив из count элементов x
function ArrGen<T>(count: integer; gen: integer->T): array of T;
        Возвращает массив из count элементов, заполненных значениями gen(i)
function ArrGen<T>(count: integer; gen: integer->T; from: integer): array of T;
        Возвращает массив из count элементов, заполненных значениями gen(i), начиная с i=from
function ArrGen<T>(count: integer; first: T; next: T->T): array of T;
        Возвращает массив из count элементов, начинающихся с first, с функцией next перехода от предыдущего к следующему
function ArrGen<T>(count: integer; first, second: T; next: (T,T) ->T): array of T;
        Возвращает массив из count элементов, начинающихся с first и second, с функцией next перехода от двух предыдущих к следующему
function ArrRandom(n: integer := 10; a: integer := 0; b: integer := 100): array of integer;
        Возвращает массив размера n, заполненный случайными целыми значениями
function ArrRandomInteger(n: integer := 10; a: integer := 0; b: integer := 100): array of integer;
        Возвращает массив размера n, заполненный случайными целыми значениями
function ArrRandomReal(n: integer := 10; a: real := 0; b: real := 10): array of real;
        Возвращает массив размера n, заполненный случайными вещественными значениями
function ReadArrInteger(n: integer): array of integer;
        Возвращает массив из n целых, введенных с клавиатуры
function ReadArrInteger(prompt: string; n: integer): array of integer;
        Выводит приглашение к вводу и возвращает массив из n целых, введенных с клавиатуры
function ReadArrReal(n: integer): array of real;
        Возвращает массив из n вещественных, введенных с клавиатуры
function ReadArrReal(prompt: string; n: integer): array of real;
        Выводит приглашение к вводу и возвращает массив из n вещественных, введенных с клавиатуры
function ReadArrString(n: integer): array of string;
        Возвращает массив из n строк, введенных с клавиатуры
function ReadArrString(prompt: string; n: integer): array of string;
        Выводит приглашение к вводу и возвращает массив из n строк, введенных с клавиатуры