TYPE Selection = RECORD
      len-: INTEGER;(*пропущено END*)
      PROCEDURE(*объявление последовало за неправильным символом*) (VAR s: Selection(*пропущено :*)) SetLen (len: INTEGER), NEW;
      PROCEDURE (VAR s: Selection) SetItem (index: INTEGER; IN item: ARRAY OF CHAR), NEW;
      PROCEDURE (VAR s: Selection) GetItem (index: INTEGER; OUT item: String), NEW;
      PROCEDURE (VAR s: Selection) SetResources (IN key: ARRAY OF CHAR), NEW;
      PROCEDURE (VAR s: Selection) Incl (from, to: INTEGER), NEW;
      PROCEDURE (VAR s: Selection) Excl (from, to: INTEGER), NEW;
      PROCEDURE (VAR s: Selection) In (index: INTEGER): BOOLEAN, NEW
END;