block.pas

CONST
    seven =  7;
    ten   = 10;

TYPE
    range1 = 0..ten;
    range2 = 'a'..'q';
    range3 = range1;

    enum1 = (a, b, c, d, e);
    enum2 = enum1;

    range4 = b..d;

    arr1 = ARRAY [range1] OF real;
    arr2 = ARRAY [(alpha, beta, gamma)] OF range2;
    arr3 = ARRAY [enum2] OF arr1;
    arr4 = ARRAY [range3] OF (foo, bar, baz);
    arr5 = ARRAY [range1] OF ARRAY[range2] OF ARRAY[c..e] OF enum2;
    arr6 = ARRAY [range1, range2, c..e] OF enum2;

    rec7 = RECORD
               i : integer;
               r : real;
               b1, b2 : boolean;
               c : char
           END;

    arr8 = ARRAY [range2] OF RECORD
                                 fldi  : integer;
                                 fldr : rec7;
                                 flda : ARRAY[range4] OF range2;
                             END;

VAR
    var1 : arr1;  var5 : arr5;
    var2 : arr2;  var6 : arr6;
    var3 : arr3;  var7 : rec7;
    var4 : arr4;  var8 : arr8;

    var9 : RECORD
               b   : boolean;
               rec : RECORD
                         fld1 : arr1;
                         fldb : boolean;
                         fldr : real;
                         fld6 : arr6;
                         flda : ARRAY [enum1, range1] OF arr8;
                     END;
               a : ARRAY [1..5] OF boolean;
           END;

BEGIN
    var1[5] := 3.14;
    var1[var7.i] := var9.rec.flda[e, ten]['q'].fldi;

    IF var9.a[seven-3] THEN var2[beta] := 'x';

    CASE var4[var8['m'].fldi - 4] OF
        foo:      var3[e][3] := 12;
        bar, baz: var3[b] := var1;
    END;

    REPEAT
        var5[3] := var5[4];
        var5[3, 'a'] := var5[4]['f'];
        var5[3, 'a', c] := var6[4, 'f'][d];
    UNTIL var6[3, 'a', c] > var5[4]['f', d];

    WHILE var7.i <> var9.rec.fldr DO BEGIN
        var7.r := var8['g'].fldr.r;
    END;

    var6[3] := var6[4];
    var6[3, 'a'] := var6[4]['f'];

    var9.rec.fld6[4]['f'][d] := e;
    var9.rec.fld6[4, 'f'][d] := e;
    var9.rec.flda[b, 0, 'm'].flda[d] := 'p';
    var9.rec.flda[b][0, 'm'].flda[d] := 'p';
END.