{$codepage UTF8} TYPE TAlumno = Record Nombre:String; Edad : byte; Sexo : Char; End; VAR alumnos:array [1..10] of TAlumno; i,j : byte; aux : TAlumno; BEGIN for i:=1 to 10 do Begin Writeln('Registro [',i,']'); Write(' Nombre : ');Readln(alumnos[i].Nombre); Write(' Edad : ');Readln(alumnos[i].Edad); Write(' Sexo : ');Readln(alumnos[i].Sexo); End; For i:=2 to 10 do Begin aux:=alumnos[i]; j:=i-1; While ( (j>=1) and (alumnos[j].Nombre>aux.Nombre) ) do Begin alumnos[j+1]:= alumnos[j]; j := j - 1; End; alumnos[j+1]:=aux; End; Writeln; for i:= 1 to 10 do Writeln(alumnos[i].Nombre:10,alumnos[i].Edad:10,alumnos[i].Sexo:10); END.