Помогите пожалуйста, как можно быстрее:3 И прошу с var, begin, end и т.д

Дан массив. Определить:
Количество минимальных и максимальных элементов массива
Дан массив. Определить:
Количество минимальных и максимальных элементов массива