a navíc správně neincializoval proměnnou "nejmensi", což je prasárna a potenciální problém jako prase.
např.
nejmensi := maxint;