SoloCodigo

procedure listar;
var
cont,x,j:integer;
begin
clrscr;
     assign(datos, 'alumnos.txt');
     reset(datos);
     seek (datos,0);
     for x:=1 to (filesize(datos)) do
         begin
             read (datos, persona);
             arrper

• .matricula:=persona.matricula;

             arrper

• .nombre:=persona.nombre;

             arrper

• .apellidop:=persona.apellidop;

             arrper

• .apellidom:=persona.apellidom;

          end;

     for x:=1 to (filesize(datos)pp) do
     writeln (arrper

• .nombre);