Try it with
a[t_] := First[A /. Solve[x[t]*A == 1 - x[t]^2]];
This gets you the actual solution instead of a solution in a list.
