Miscellany

procedure colocar_indice(indice: in out indice_secuencial.file_type; dniyletra: in string; posicion: in natural) is
linea : indice_reg;
numero: natural;
begin

	if size(indice) /= 0 then
		while not (end_of_file()) loop
			read(indice,linea);
			numero := natural'value(slice(linea.dniyletra,1,8));
			if numero > natural'value(slice(dniyletra,1,8)) then
				
				linea.lugar_rec

			end if;

		end looP;
	else
		write(indice,(
			dniyletra_rec => dniyletra
			lugar_rec => posicion
			)
			);
	
end colocar_indice;