module Main;
type
	Matrix = array *,* of integer;

var
	m: Matrix;
	i,j: integer;
begin
	write("first dim? ");readln(i);
	write("second dim? ");readln(j);
	m := new Matrix(i,j);
	m[0,0] := 10;
	writeln("m[0,0]:> ",m[0,0]);
	writeln("m[0,1].> ",m[0,1])
end Main.