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