Prompt-A-Video: Prompt Your Video Diffusion Model via Preference-Aligned LLM