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