Read(letra);
Write('Las consonantes y vocales duplicadas son: ');
While letra<>'$' Do
Begin
Read(letra);
Buenas, quería consultar si el siguiente bloque de código es válido, ingreso el texto mediante cmd, se lee el primer carácter y se asigna a la variable de tipo char: letra, pero luego coloco un Write y después la idea es que se vaya asignando uno a uno los caracteres escritos previo al Write, consulto porque queda medio confuso a mi entender, pero ejecute el programa y funciono correctamente.