SoloCodigo

Buenas, tengo un problemilla con una práctica de la uni. Pues bien tengo esta función :

function Examinar (L : Lista) return TElemento is
   begin
       if Fin_Lista (L) then
           raise Constraint_Error;
        else
           return L.Actual;
      end if;
 end Examinar;

querría saber si esta bien o ay algun error,  ya que tengo problemas para entregar la práctica ya que me dice que esta función esta mal.