text = Import[
   InputString["Enter the filename of the story template:"]];
answers =
  AssociationMap[
   InputString[
     "Enter a" <>
      If[StringMatchQ[#,
        "<" ~~ Alternatives @@ Characters["aeiou"] ~~ ___], "n", ""] <>
       " " <> StringTrim[#, "<" | ">"] <> ":"] &,
   Union[StringCases[text, RegularExpression["<[^>]+>"]]]];
Print[StringReplace[text, Normal[answers]]];