Помогите решить задачу с динамичсекими матрицами

uses crt;
type
 TVector = array [1..1] of integer;
 PVector = ^TVector;
 TDynMatrix = array [1..1] of PVector;
 PDynMatrix = ^TDynMatrix;

var
 mx: PDynMatrix;
 n,k,i,j:integer;
begin
 clrscr;
 write('n='); readln(n);
 write('k='); readln(k);

 new(mx);
 for i:=1 to n do
 new(mx^[i]);

 for i:=1 to n do 
  begin
  for j:=1 to k do 
   begin
   mx^[i]^[j]:=random(1);
   write(mx^[i]^[j]:3);
   end;
   writeln;
  end;
 for i:=1 to n do
  dispose(mx^[i]);
  dispose(mx);
 readln;
 end.

uses crt; 
type
 TDynMatrix = array [1..1,1..1] of integer;
 PDynMatrix = ^TDynMatrix; 

var 
 mx: PDynMatrix; 
 n,k,i,j:integer; 
begin 
 clrscr; 
 write('n='); readln(n); 
 write('k='); readln(k); 

 new(mx); 
 {for i:=1 to n do
 new(mx^[i]);}

 for i:=1 to n do
  begin 
  for j:=1 to k do 
   begin 
   mx^[i,j]:=random(2);
   write(mx^[i,j]:3);
   end;
   writeln; 
  end;
 
{ for i:=1 to n do
  dispose(mx^[i]);}

  dispose(mx); 
 readln; 
 end.