In fcl-passrc, function TPasSetType.GetDeclaration does not correctly show declararions of set when type is a range

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