Algorithm for computing the moduli space of pointed Gorenstein curves with Weierstrass gap sequence \(1,2,\ldots,g-2,\lambda,2g-3\) On the reduction of the Hilbert-Blumenthal-moduli scheme with \(\Gamma_0(p)\)-level structure 