CIA: Procura uniforma adiantada

Ainda n testado, mas a ProcuraCustoUniforme.Procura necessita de ser
feito como deve ser. Problema necessita de ter a funçao Gaol como
pointer para função.