TYPE TheClocks = ARRAY 10 OF INTEGER;
  CONST AnimClockData = TheClocks(
    00400, 00070, 00000, 00700, 00100, 00380, 00000, 00700, 03008, 00000);

  TYPE TheClocks = ARRAY 10 OF INTEGER;
  CONST AnimClockData = TheClocks(
    00400, 00070, 00000, 00700, 00100, 00380, 00000, 00700, 03008, 00000);

const int AnimClockData [10] = {00400, 00070, 00000, 00700, 00100, 00380, 00000, 00700, 03008, 00000};

#ifdef __cplusplus
#  define __CONSTARR const
#else
#  define __CONSTARR
#endif

CONST a = LONGINT(0);

CONST a = LONG(LONG(0));

  TYPE TheClocks = ARRAY 10 OF INTEGER;
  CONST AnimClockData = TheClocks(
    00400, 00070, 00000, 00700, 00100, 00380, 00000, 00700, 03008, 00000);

  CONST AnimClockData = ARRAY 10 OF INTEGER(
    00400, 00070, 00000, 00700, 00100, 00380, 00000, 00700, 03008, 00000);

PROGRAM ConstArr;
 
  TYPE
    TheClocks = ARRAY [0..1] OF INTEGER;
  CONST
    AnimClockData: TheClocks = (400, 70);
    AnimClockData2: ARRAY [0..1] OF BYTE = (4, 7);
    z: BYTE = 0; z1: INTEGER = 0; z2: REAL = 0;
 
BEGIN
END.

BEGIN
  z := 1; z1 := 2; z2 := 1.1;
  AnimClockData[0] := AnimClockData2[0];
END.

  TYPE TheClocks = ARRAY 10 OF INTEGER;
  CONST AnimClockData = TheClocks(
    00400, 00070, 00000, 00700, 00100, 00380, 00000, 00700, 03008, 00000);

	PROCEDURE Block(VAR procdec, statseq: OPT.Node);
		VAR typ: OPT.Struct;
			obj, first, last: OPT.Object;
			x, lastdec: OPT.Node;
			i: SHORTINT;
	BEGIN first := NIL; last := NIL; nofFwdPtr := 0;
		LOOP
			IF sym = const THEN
				OPS.Get(sym);
				WHILE sym = ident DO
					OPT.Insert(OPS.name, obj); CheckMark(obj^.vis);
					obj^.typ := OPT.sinttyp; obj^.mode := Var;	(* Var to avoid recursive definition *)
					IF sym = eql THEN
						OPS.Get(sym);
						IF sym = ident THEN  (* если это идентификатор *)
									x := OPT.NewNode(Ntype); qualident(x^.obj); (* берем его как идентификатор типа *)
									IF (x^.obj^.mode = Typ)  & (x^.obj^.typ^.form = Comp) & (x^.obj^.typ^.comp = Array) 
									THEN  ConstArray(x)
									ELSE 	 ConstExpression(x) (* обрабатываем стандартным образом *)
									END
 
						ELSE
						 ConstExpression(x)
						END
					ELSIF sym = becomes THEN ... 

	PROCEDURE ConstArray (VAR x: OPT.Node);
		VAR apar:  OPT.Node; n: INTEGER; fp: OPT.Object;
	BEGIN
		IF  x^.obj^.typ^.BaseTyp^.form IN intSet THEN (* массив из целых, позднее добавим тип BYTE *)
		n:=x^.obj^.typ^.n; (* количество элементов массива *)		
			CheckSym(lparen); (* скобка (  *)
			fp := OPT.NewObj(); fp^.typ:=  x^.obj^.typ^.BaseTyp;
			fp^.mode := Var;  (*  fp  - переменная, элемент массива *)
			(* тут нужно бы выделить кусок  памяти для n элементов массива *)
			IF sym # rparen THEN
				LOOP  ConstExpression(apar); (* берем очередной элемент *)
					IF n # 0 THEN
						 OPB.Param(apar,fp); (* проверим на совместимость*)
						(* тут нужно положить элемент в кусок памяти *)
						DEC(n);
					ELSE err(64)
					END ;
					IF sym = comma THEN OPS.Get(sym)
					ELSIF (lparen <= sym) & (sym <= ident) THEN err(comma)
					ELSE EXIT
					END
				END
			END ;
			IF n # 0 THEN err(65) END;
			CheckSym(rparen);
			x:=apar; (* пока так для тестирования, а вообще-то тут нужно создать узел "константный массив" *)
		ELSE  err(51)
		END
	END ConstArray;

 
		Blob* = POINTER TO BlobArray;
		BlobArray* = ARRAY OF BYTE;
и соответственно  
		ConstDesc* = RECORD
			ext*: ConstExt;	(* string or code for code proc *)
			intval*: INTEGER;	(* constant value or adr, proc par size, text position or least case label *)
			intval2*: INTEGER;	(* string length, proc var size or larger case label *)
			setval*: SET;	(* constant value, procedure body present or "ELSE" present in case *)
			realval*: REAL	(* real or longreal constant value *)
			blob*: Blob;
		END ;