Генерация бесконечных последовательностей

function Cycle<T>(Self: sequence of T): sequence of T;
        Повторяет последовательность бесконечное число раз
function Step(Self: integer): sequence of integer;
        Возвращает бесконечную последовательность целых от текущего значения с шагом 1
function Step(Self: integer; step: integer): sequence of integer;
        Возвращает бесконечную последовательность целых от текущего значения с шагом step
function Step(Self: real; step: real): sequence of real;
        Возвращает бесконечную последовательность вещественных от текущего значения с шагом step