(Delphi) «Создание динамически подключаемой библиотеки с набором подпрограмм для обработки массивов».

[anubiss]

Здравствуйте. Подскажите пожалуйста????
Дана библиотека (.dll) в которой написана подпрограмма для решения задачи:

function Count_Chet(A:Vektor):Integer;stdcal l;
var i,k,Nmax, Nmin, max, min,p:integer;
begin

max:=0;
min:=100;
p:=1;
for I := 0 to High(A) do
begin
if max<A[i] then
begin
max:=a[i];
Nmax:=i;
end;
if min>A[i] then
begin
min:=a[i];
Nmin:=i;
end;
end;
if Nmin>Nmax then begin
for I := Nmax+1 to Nmin-1 do
p:=p*a[i];
end else begin
for I := Nmin+1 to Nmax-1 do
p:=p*a[i];
end;
Result:=p;
end;

как мне прописать в программе что бы в label 8 выводило значение (Nmin)

procedure TForm1.Button2Click(Sender: TObject);
{Задача 1.}
var i,k:integer;
{определение динамического линейного массива:}
A:Vektor;
begin
try
Label4.Visible:=False;
Label7.Visible:=True;
Label8.Visible:=True;
StringGrid1.ColCount:=2;
StringGrid1.Cells[0,0]:=' i';
StringGrid1.Cells[1,0]:=' A[i]';
//Выделение памяти под массив:
SetLength(A,n);
//Чтение массива из StringGrid:
for i := 1 to n do
A[i-1]:=StrToInt(StringGrid1.Cells[1,i]);
//Вызов функции для решения задачи:
k:=Count_Chet(A);
//Вывод результата:
Label8.Caption:=IntToStr(k);
//Освобождение памяти от массива:
A:=nil;
except
showmessage('Некорректные данные!');
end;
end;