Pascal/Turbo Pascal - Pascal: arrays/registro.

TYPE
Alumno=RECORD
nombre:string[40];
edad:integer;
END;
Curso=RECORD
Turno1:ARRAY[1..5] OF Alumno;
Turno2:ARRAY[1..5] OF Alumno;
Turno3:ARRAY[1..5] OF Alumno;
END;
VAR
Academia:ARRAY[1..10] OF Curso;

-------------------------------------------------------------------------------------------------------------------------

Begin
Writeln ('Introduzca el nombre y los apellidos');
Readln (nombrecompleto);
academia[CursoSel].turno1[valido].nombre:=nombrecompleto;

-------------------------------------------------------------------------------------------------------------------------

IF gruposel=1 THEN
FOR j:=1 TO 5 DO
Begin
Writeln((academia[cursosel].turno1[j].nombre));
End;

Son tres trozos de un programa que tengo que hacer.
El problema es que al ejecutar el tercer pedazo, sólo muestra la primera letra del nombre guardado con el segundo.
Supongo que será alguna cosa muy obvia, pero no la veo. Agradezco toda ayuda.

De qué tipo es "nombrecompleto"?

Integer

Pd:Gracias, Diego.

De nada xD.