nvm
Well you will be deluged with good advice about using millis() to replace your delay() functions, however I believe this is a very rare case where you might be able to simply merge them, except that you should combine the delays into one delay(). Put that at the very end of loop().
Both sketches wait one second between activities, so you can basically throw all the setup stuff and all the loop stuff together. Maybe fix some minor catch.