module AryLength;
type
	Vector = array 12 of string;
	Matrix = array *,* of string;
var
	a: Vector;
	b: Matrix;
begin
	writeln(len(a):4);		(* len(a) = len(a,0) *)

	b := new Matrix(10,11);
	writeln(len(b,0):4); 	(* first dimension *)
	writeln(len(b,1):4)		(* second dimension *)
end AryLength.