SoloCodigo

uses crt;
type
  reg=record
    matricula:string;
    nombre:string;
    apellidop:string;
    apellidom:string;
  end;

var
datos:text;
arrper:array[1..50]of reg;

procedure listar;
var
cont,x,j:integer;
begin
clrscr;
    assign(datos, 'alumnos.txt');
    reset(datos);
    x:=1;
    while not(seekeof(datos)) do
        begin
            readln(datos,arrper

• .matricula);

            readln(datos,arrper

• .nombre);

            readln(datos,arrper

• .apellidop);

            readln(datos,arrper

• .apellidom);

            inc(x);
         end;

    for j:=1 to (x) do
      writeln (arrper[j].nombre);
    readln;
end;

begin
  listar;
end.