trace – The initial value for the variable can not be found

I'm trying to solve numerically and draw two first-order differential equations coupled using ParametricNDSolve over the region $ (0, a) $ where $ a $ is the parameter

qpSol = ParametricNDSolve[
P[a] == 0, q[0] == 1},
{q, p}, {t, 0, a}, a]Handle[ParametricPlot[Evaluate[{P[ParametricPlot[Evaluate[{p[ParametricPlot[Evaluar[{pag[ParametricPlot[Evaluate[{p[a] /. qpSol, q[a] /. qpSol}],
{t, 0, a}], {a, 0.1, 100}]

However, when I run this code, I find the error:

ParametricNDSolve :: ndsv: the start value for the variable q can not be found.

Which does not make sense, since I clearly provide the initial condition for q in the fourth line, $ q[0]== 1 $