feature_wherex can be used to determine if the current platform supports the built-in function wherex.
if supported(feature_wherex) then xpos := wherex;
if supported(feature_wherey) then ypos := wherey;
Operating Systems: All
Standard Pascal: No