freepascal.compiler/docs/syntax/construct.syn

\begin{diagram}{Constructors and destructors}{constuctdestruct}
\begin{mysyntdiag}
\synt{constructor\ declaration}
\synt{constructor\ header} \lit* ; \synt{subroutine\ block}
\end{mysyntdiag}
\begin{mysyntdiag}
\synt{destructor\ declaration}
\synt{destructor\ header} \lit* ; \synt{subroutine\ block}
\end{mysyntdiag}
\begin{mysyntdiag}
\synt{constructor\ header}
\lit*{constructor} 
\begin{stack} \synt{identifier} \\ \synt{qualified\ method\ identifier} \end{stack}
 \synt{formal\ parameter\ list}
\end{mysyntdiag}
\begin{mysyntdiag}
\synt{destructor\ header}
\lit*{destructor} 
\begin{stack} \synt{identifier} \\ \synt{qualified\ method\ identifier} \end{stack}
 \synt{formal\ parameter\ list}
\end{mysyntdiag}
\end{diagram}