How to get the first letter of each word enter by user

Question

Here are the details of my code

name:-read(X),write(\'Name : \'),write(X),nameCode(X).
nameCode(X):-nl, write(\'Name Code : \').