[viveba]

Puedes hacer lo siguiente:

Código Delphi [-]
type
  Vector = array of Integer;
  Matriz = array of Vector;

var
  C,D: Matriz;

procedure TForm3.Button1Click(Sender: TObject);
var
  i,j,N: Integer;

begin
  N := 10;
  setlength(C,N,N);
  setlength(D,N,N);
  for i := 0 to N-1 do
    for j := 0 to N-1 do
    begin
      C[i,j] := i;
      D[i,j] := j;
    end;
end;

básicamente, así lo hago yo.