USES has recently been improved so that it works as in FPC
uses def_1, def_2;
def_2 is primary
uses def_2, def_1;
def_1 is primary
https://wiki.freepascal.org/Uses
uses dd,crt;
begin
writeln('COLOR_GREEN ', dd.COLOR_GREEN);
writeln('GREY ', dd.GREY);
readkey;
end.