How to test if a System`symbol is an Option used for a System`function?

Questions
1

What I have figured out so far is this:

Option[s_String] :=  {s, Length@Options[s] +    
  Length[SyntaxInformation[Symbol[s]]] };

Am not including functions that are actually options.

After removing values > 0, I get the list in the attached notebook.

output.nb (90.2 KB)

2

This WFR function is probably useful in this context:

https://resources.wolframcloud.com/FunctionRepository/resources/SymbolsWithOption/

In[42]:= ResourceFunction["SymbolsWithOption"][IgnoreCase]
Out[42]= {"DamerauLevenshteinDistance", "DictionaryWordQ", \
"EditDistance", "FileNames", "Find", "FindList", "GrammarApply", \
"GrammarRules", "HammingDistance", "LongestCommonSequence", \
"LongestCommonSequencePositions", "LongestCommonSubsequence", \
"LongestCommonSubsequencePositions", "LongestOrderedSequence", \
"Names", "NeedlemanWunschSimilarity", "NotebookFind", \
"SequenceAlignment", "SmithWatermanSimilarity", "StringCases", \
"StringContainsQ", "StringCount", "StringDelete", "StringEndsQ", \
"StringFreeQ", "StringMatchQ", "StringPosition", "StringReplace", \
"StringReplaceList", "StringSplit", "StringStartsQ", "StringTrim", \
"WolframAlpha", "WolframAlphaResult"}
3

Thank you! Off to explore…