program listado;
uses 
	crt;
type
	datosPersona = (id,Nom,dom,cid,tel);
	Regpersona = record
		 idpersona : longint;
		 Nombre    : string[30];
		 Calle     : string[25];
		 Ciudad    : string[15];
		 Telefono  : string[15]
		end;
	Archivero = file of Regpersona;
 
	Regcontrol = record
		idcontrol    : longint;
		idependencia : longint;
		idpersona    : longint;
		borrado      : boolean;
		end;
	ArchiveroControl = file of Regcontrol;
 
var
	ArchivoPersona : Archivero;
	Usuario        : RegPersona;
	ArchivoControl : ArchiveroControl;
	control	       : RegControl;
	idusuario      : longint;
	idCtrl	       : longint;
	resultado      : integer;
	respuesta      : char;
	lista	       : array[1..100,datosPersona] of string[100];
	i	       : integer;
 
BEGIN
 
        clrscr;
	{--------------------------- APERTURA DEL ARCHIVO DE PERSONAS ---------------------------}
	Assign(ArchivoPersona,'c:personas.arg');
	{$I-}
           Reset(ArchivoPersona);  {Abre el flujo de datos para posteriormente ser guardado}
           Resultado:=IOresult;
 
	{$I-}
 
	if Resultado <> 0 then {El archivo no existe}
	   begin
		write('EL ARCHIVO DE PERSONAS NO EXISTE');
	   end
	else
	   begin
		i:=1;
 
		while not Eof(ArchivoPersona) do
		   begin
		     Read(ArchivoPersona,Usuario);
		     str(Usuario.idpersona,lista[i,id]);
		     lista[i,nom]:=Usuario.Nombre;
		     lista[i,dom]:=Usuario.Calle;
		     lista[i,cid]:=Usuario.Ciudad;
		     lista[i,tel]:=Usuario.Telefono;
		     i:=i+1
		end;
		writeln('------id------Nombre-----------Calle-----------Ciudad------------Telefono');
		for i:=1 to 100 do
		    if (i MOD 24 <> 0) then
		    	writeln(lista[i,id],'   ',lista[i,nom],'         ',lista[i,dom],'        ',lista[i,cid],'       ',lista[i,tel])
                    else
                      if length(lista[i,nom])=0 then
                         i:=100
                      ELSE
                         readkey;
 
 
	end;
 
        readkey;
        Close(ArchivoPersona);
END.