Область действия  идентификатора или метки в описании метки,
        константе,  типа, переменной, процедуры или функции распространя-
        ется  от их описания до конца текущего блока,  включая все блоки,
        входящие в текущий блок. Ниже приводится несколько исключений.

             Идентификатор или метка,  описанные во внешнем блоке,  могут
        заново описываться во внутреннем блоке, входящем во внешний блок.
        До точки описания во внутреннем блоке или после конца  вложенного
        блока идентификатор или метка представляют элемент,  описанный во
        внешнем охватывающем блоке.

             program Outer;          { начало внешней области действия ъ
             type
               I = Integer;          { определяет I как Integer }
             var
               T: I;                 { определяет T как целочисленную
                                       переменную }
             procedure Inner;        { начало внутреннего блока }
             type
               T = I;                { переопределяет T с типом Integer }
             var
               I: T;                 { переопределяет I как целочисленную
                                       переменную }
             begin
               I := 1;               { конец вложенного блока }
             end;

             begin
               T := 1;               { конец внешнего блока }
             end.