program crear;
uses 
	crt;
type
	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;
 
BEGIN
	{--------------------------- APERTURA DEL ARCHIVO DE CONTROL ---------------------------}
	Assign(ArchivoControl,'c:control.ctr');
	{$I-}
           Reset(ArchivoControl);  {Abre el flujo de datos para posteriormente ser guardado}
           Resultado:=IOresult;
 
	{$I-}
 
	if Resultado <> 0 then {El archivo no existe}
	   begin
		Rewrite(ArchivoControl);
		idCtrl := 0;
	   end
	else
	   begin
		idCtrl := filesize(ArchivoControl) + 1
	end;
 
	{--------------------------- 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
		Rewrite(ArchivoPersona);
		idusuario := 0;
	   end
	else
	   begin
		idusuario := filesize(ArchivoPersona) + 1
	end;
 
	{-------------------------  ALTA DE USUARIOS -------------------------------------------}
	with Usuario do
		repeat
                     clrscr;
		     idPersona:= idusuario;
                     writeln('id : ',idusuario);
		     Write('Nombre Completo  : ');
		     ReadLn (Nombre);
		     Write('Calle   : ');
		     ReadLn (Calle);
		     Write('Ciudad  : ');
		     ReadLn (ciudad);
		     Write('Telefono: ');
		     ReadLn (Telefono);
		     seek(ArchivoPersona,filesize(ArchivoPersona));
		     Write (ArchivoPersona,Usuario); {Escritura de un registro}
		     {    REGISTRO DEL CONTROL USUARIO/DEPENDENCIA }
		     randomize;
		     control.idcontrol:=idCtrl;
		     control.idpersona:=idUsuario;
		     control.idependencia:=random(10);
		     control.borrado:=false;
		     seek(ArchivoControl,filesize(ArchivoControl));
		     Write (ArchivoControl,control);
		     {En Su directirio no VAN A GENERAR UN NUMERO ALEATORIO, SOLO ES EJEMPLO}
		     WriteLn('Desea otro elemento s/n');
		     respuesta := upcase(readkey);
                     idusuario:=idusuario+1;
                     idCtrl:=idCtrl+1;
		until respuesta = 'N';
 
	Close(ArchivoControl);
        Close(ArchivoPersona);
END.