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.