Найти минимальний елемент массива. ПРием данних как указатель на начало масива , и как копию данных.

[galaxyblazer]

Дана задача. Задан масив чисел , без знака. Нужно написать групу процедур которые будут находить минимальный елемент массива. Должно быть две процедуры : одна процедура принимает данные как указатель на начало масива а вторая как копию данных... Саму програмку которая находит минимальный елемент я сделал , но я столкнулся с проблемой организовать все в процедуры и передавать масив как копию данных и как указатель... Помогите пожалуйста.
Вот то что я сделал:

.model small 
.data 
array db 15,-100,50,0; и т.д. элементы массива 
len equ $ - array; кол-во элементов 
min db ?; значение минимального элемента 
imin dw ?; индекс минимального элемента 
.stack 100h 
.code 
start: 
    mov ax,@data 
    mov ds,ax 
    mov cx,len 
    dec cx 
    xor di,di; указатель на 1-й элемент, принятый за начальный минимум 
    mov si,1; указатель на 2 элемент (его индекс 1) 
cycle: 
    mov al,array[si] 
    cmp al,array[di] 
    jge next 
    mov di,si 
next: 
    inc si 
    loop cycle 
    mov imin,di; запись индекса минимального элемента 
    mov al,array[di] 
    mov min,al; запись значения минимального элемента 
;   ...
    mov ah,4ch 
    int 21h 
    end start