Подпрограммы для генерации случайных матриц

function MatrixRandom(m: integer := 5; n: integer := 5; a: integer := 0; b: integer := 100): array [,] of integer;
        Возвращает двумерный массив размера m x n, заполненный случайными целыми значениями
function MatrixRandomReal(m: integer := 5; n: integer := 5; a: real := 0; b: real := 10): array [,] of real;
        Возвращает двумерный массив размера m x n, заполненный случайными вещественными значениями