Hola, no entiendo muy bien tu pregunta.. pero yo entiendo que tu quieres introducir un string, y que al pulsar enter, se muestre en pantalla el numero que has ingresado, en ese caso la funcion seria:
program LeerString; var num:string; begin writeln('LEER STRING'); writeln; write('Introduzca el string'); readln(num) writeln('El string introducido es: ',num); readln; end.