DSolve[{(-t^2 + x[t]^2 + y[t]^2)*Derivative[1][x][t] == -2*t*x[t], (-t^2 + x[t]^2 + y[t]^2)*Derivative[1][y][t] == -2*t*y[t]},{x[t], y[t]},t]