Создать динамический двумерный массив, заполнить его случайными цифрами, затем распечатать

uses crt;
var i,j,n,m: byte;
     mas: array [,] of integer;
begin
randomize;
clrscr;
n:=random(5)+5;
m:=random(5)+5;
SetLength(mas,n+1,m+1);
 for i:=1 to n do
  for j:=1 to m do
   mas[i,j]:=random(9);
 for i:=1 to n do
 begin
  for j:=1 to m do
  write(' ',mas[i,j],' ');
writeln;
end;
readln;
end.

uses crt;
Type
  Item= real;
  Row = array [1..1] of item; {}
  Prow=^row;
  Mas=array[1..1] of prow {};
  Pmas=^mas;
Var
    R:pmas;
    M,n,I,j: integer;
 Begin
       randomize;
      Writeln('');
       Readln(m);
       Writeln('');
       Readln(n);
       Getmem (r,m*sizeof(prow));
       For i:=1 to m do getmem(r^[i], n*sizeof(item));
       For i:=1 to m do
       For j:=1 to n do begin
                   r^[i]^[j]:=random(15);
                   writeln( r^[i]^[j]:3:2);
                   end;end.