Pascal/Turbo Pascal - ayuda con read

Buenas espero que esten bien; tengo un problema con pascal, estoy intentnado hacer un formulario de ingreso de datos, pero cuando estan ingresando los datos por ejmplo

NOmbre: _______________ Apllido

eso e slo ideal

pero el programa permite que suceda esto

NOmbre:sdgaddasdajkdakjajkhllido

es decir deja que se superponga lo que el usuario escribe sobre la sifguient frase

quiero saber como controlar eso si hayalguna forma de cuantifica para que solo muestre 10 o 20 caracteres no muestre lo demas


Gracias

Hola Hernan. Creo que una manera sería utilizando la función Length que devuelve la cantidad de caracteres de una cadena.

uses crt;
var cadena : string;
begin
ClrScr;

Repeat
Writeln('Ingrese su nombre');
Readln(Cadena);
if Length(Cadena) > 10 then
Writeln('El nombre no debe contener m s de 10 caracteres');
until Length(Cadena) < 10;

end.

OK Prueba con este..

uses crt;
var cadena : string;
J, I :Integer;
begin
ClrScr;

For J := 1 to 3 do
begin
Writeln;
Writeln('Ingrese su nombre');

Readln(Cadena);
Writeln;
if Length(Cadena) > 10 then
For I := 1 to 10 do
Write(Cadena[I]);

end;

end.

Si vas a responder esta nota, hazlo desde esta ventana para que aparezca junto a las notas anteriores de este mismo tema porque de otra manera los demás usuarios del foro no sabrán de qué estamos hablando.

Saludos!

Hola Hernan. Creo que una manera sería utilizando la función Length que devuelve la cantidad de caracteres de una cadena.

uses crt;
var cadena : string;
begin
ClrScr;

Repeat
Writeln('Ingrese su nombre');
Readln(Cadena);
if Length(Cadena) > 10 then
Writeln('El nombre no debe contener m s de 10 caracteres');
until Length(Cadena) < 10;

end.

Hola Hernan. Creo que una manera sería utilizando la función Length que devuelve la cantidad de caracteres de una cadena.

uses crt;
var cadena : string;
begin
ClrScr;

Repeat
Writeln('Ingrese su nombre');
Readln(Cadena);
if Length(Cadena) > 10 then
Writeln('El nombre no debe contener m s de 10 caracteres');
until Length(Cadena) < 10;

end.