Помогите решить задачу в Паскаль. Очень надо… — Если введенный символ является…

Program Zamena; Uses Crt; var c: char; begin clrscr; write ('Введите символ: '); readln (c); case c of 'A','a', 'E','e', 'I','i'O','o'U','u',' Y','y': writeln ('! '); 'B','b',C,'c','D','d','F','f','G','g','H','h','J','j',K,'k','L','l','M','m', 'N','n'P','p','Q','q','R','r','S','s' ,'T','t','V','v','W','w' ,'X','x', 'Z','z': writeln ('? '); '0'… '9': writeln (': '); else writeln ('*'); end; readkey; end.