I'm going to propose my comment as an answer together with some additional material.
I guess that it could be most easily done with luatex and lua programming. However there are aesthetics involved --- what might look centered to an algorithm will not necessarily look centered to the reader. My description of the \versewidth macro was to indicate a ...
It can be obtained with two nested align(ed)at environments:
You do not need to change anything since Cormorant-Regular.ttf does contain the smcp feature necessary for fontspec to use real small caps:
$ otfinfo -f Cormorant_Install_v3.601/1.\ TrueType\ Font\ Files/Cormorant-Regular.ttf | grep smcp
smcp Small Capitals
An alternative way to see this is provided by fontforge that you mention in the comments. With ...
Unfortunately, the nodes that contain instructions to change the current ink color are not discardable, so you need to bury them inside a \leaders box; this does not allow the use of \leaders that directly employ rules (e.g., \leaders \hrule width \linewidth \vskip ...).
However, it suffices to rebuild the box used in the \leaders each time the \ornament ...
The amsaddr package does
and so if you don't specify the \shortauthors, the first argument would be empty and amsart substitutes it with \shorttitle.
A simple solution is to use the optional argument to \author: