Hola Keseki,
Aqui te envio un codigo para leer un fichero de texto caracter a caracter y guardarlo en un vector.
with Ada.Text_Io;
use Ada.Text_Io;
procedure Leer_fichero is
f:File_Type;
C:Character;
i:integer:=0;
begin
Open (f,In_File,"nombre_Fichero.txt");
while not End_Of_File(f) loop
while not End_Of_LIne(f) loop
get (f,C);
i:=i+1;
end loop;
end loop;
declare
type Vector_Numeros is array (1..i) of integer;
Vect:Vector_Enteros;
i:=1;
while not End_Of_File loop
while not End_Of_Line loop
get(f,C);
vect(i)=Character'Pos©-Character'Pos(0);
i:=i+1;
end loop;
end loop;
Deberia funcionar esto
Atentamente
