SoloCodigo

Muchas gracias por el interés, pero tengo un problema. La ftp en la que se encuentra el zip que necesito parece no funcionar bien, y no me deja bajarme el archivo. ¿Tu lo tienes? Si es así, te agradecería que te pusieras en contacto conmigo para mandarmelo  

He de realizar una práctica de programación en ADA, y en uno de los (sub)procedimientos que debo implementar me sale el error "expect procedure name in procedure call" al compilar. Por mucho que le de vueltas no consigo encontrar dónde esta el fallo, por esto agradecería que alguien me echase una mano. "Almacenar" y "Comprobar" son dos "separates".
El código es: (el error lo indica en la función "Comprobar")

Begin
   Open (F,In_File,"origen.txt");
   Open (G,In_File,"palabras_reservadas.txt");
   Create (H,Out_File,"destino.txt");
   while not(End_Of_File(F)) loop

      Almacenar(F,Palabra1);
      Almacenar(G,Palabra2);

-- función que compara las dos palabras obtenidas con el procedimiento almacenar
      Comprobar(Palabra1,Palabra2);

      if Car=' ' or Car='(' then
         Put(H,Car);
         Get(F,Car);
      else
         Put(H,Car);
         New_Line(G);
         Get(F,Car);
         while Car=' ' and not(End_Of_File(F)) loop
            Get(F,Car);
         end loop;
      end if;
   end loop;
   Close(F);
   Close(G);
   Close(H);
end Buscar_Palabra;


FUNCTION Comprobar (A,B: in Palabra) return Boolean is
   I : Integer := 1;  
Begin
   while A(I)=B(I) and B(I)/=' ' loop
      I:=I+1;
   end loop;
   return A(I)=B(I);
end Comprobar;

Muchas gracias de antemano a todos aquellos que me puedan ayudar.