criado AlgMaximum em Pascal.