Ищет наименьший элемент в массиве простым перебором. Если заменить знак «<» на «>», то можно искать наибольший элемент.

(*******************************************************
Функция для поиска наименьшего элемента.
Принимает:
    *массив значений a с индексами элементов от 0 до N-1
    *число элементов
Возвращает:
    *номер наименьшего элемента
*******************************************************)
function FindLeastElement (const a : array of Real; const N : Integer): Integer;
var
    I   :   Integer;
begin
    result := 0; 
 
    for I := 1 to N - 1 do
        if A[result] > A[i] then
           result:=i;
end;