Declare
archivo Text_IO.File_Type; /* Declaras tu variable de tipo file */
linea varchar2(3000);
LA VARCHAR2(300);
Begin
LA:='C:\ARCHIVO\archivo.txt';
archivo := Text_IO.Fopen(LA,'r');
Text_IO.Get_Line(archivo,linea);
FIRST_RECORD;
Loop
:CEDULA:= Substr(LINEA,1,INSTR(LINEA,';')-1);
Next_record;
Text_IO.Get_Line(archivo,linea);
End Loop;
EXCEPTION
WHEN no_data_found THEN
Text_IO.Put_Line('Cerrando el archivo...');
Text_IO.Fclose(archivo);
END;