Ayuda freepascal

[oxi12pek]

Hola a todos! Me gustaria saber como puedo leer un string de x tamaño y que la lectura termine al pulsarle a enter.
Gracias

[dennis094]

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.