Корректировка кода delphi, нахождение суммы элементов массива между минимумом и максимумом элементов

for i=1 to N-1
if arr[i] < arr[min] then min = i
if arr[i] > arr[max] then max = i
next i
print arr[min] + " " + arr[max]
if min > max then
i = min
min = max
max = i
endif
sum = 0
for i=min+1 to max-1
sum = sum + arr[i]
next i
print sum