Написать фрагмент программы, генерирующий элементы массива в диапазоне от -50 до 50, и выводящей его на экран в виде мат

uses Math; //подключаем модуль
var
matr: array of array of integer;//объявляем динамический массив
i, j, m, n:integer;
begin
Randomize;
Writeln('Введите количество строк');
Read(m);
Writeln('Введите количество столбцов');
Read(n);
SetLength(matr, m,  n); //задаем размерность
 for i :=0 to m-1 do
 for j :=0 to n-1 do
   matr[i, j] :=RandomRange(-50, 50); //заполняем случайными числами
 Writeln('Матрица:');
 Writeln;
 for i :=0 to m-1 do
  begin
   for j :=0 to n-1 do
    Write(matr[i, j]:4);
    Writeln;
     end;
    Readln;
    end.