Подскажите как найти наибольшое и наименьшое Опции

[Port111]

Подскажите как найти наибольшое и наименьшое из элементов массива....
Просто мне надо решить задачу:
Найдите сумму элементов массива расположенные между наименьшим и наибольшим элементами..

[AlaRic]

Наибольшее:
max:=a[1];
for i:=2 to n do
if max < a[i] then max:=a[i];

Наименьшее:
min:=a[1];
for i:=2 to n do
if min > a[i] then min:=a[i];