{ Busca o valor x em um vetor ordenado. }
function busca(var vet: tipo_vetor; x: integer): boolean;
var
   i : integer;
begin   
   i := 1;
   while (i <= tam_vet) and (vet[i] < x) do
      i := i + 1;
   busca := (i <= tam_vet) and (vet[i] = x);
end;