In fcl-passrc, function TPasSetType.GetDeclaration does not correctly declararions of set when type is a range. For example: ``` var S : set of 1..5; type TSet=set of 1..5; ``` are shown as follows: ``` S : Set of TSet = Set of ``` See attached archive to reproduce. [test.zip](/uploads/1b661cf84126961bb0eeb870b5cd4d59/test.zip)