Как найти наименьшее и наибольшее число в массиве?

Здравствуйте, как мне найти наименьшее и наибольшее число в delphi?

Предположим, у меня есть 10 разных чисел, хранящихся в массиве:

Как мне найти наибольшее и наименьшее числа в моем массиве?