this is my program but it is not flexible ,
for example if i enter [email protected]

the ouput is ermina .

can anyone help me ?

program domainame(input,output);
var S:string;
begin