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.