Поиск минимума рекурсией

type mas=array of Integer;
var res:Integer;
 
 
function min(var b:mas; const i1,i2:integer):integer;
var
k:integer;
begin
k:=(i2-i1) div 2;
if i1=i2 then res:=B[i1]
else
  begin
   if min(b,i1,i1+k)<min(b,i1+k+1,i2) then res:=min(b,i1,i1+k);
   if  min(b,i1,i1+k)>min(b,i1+k+1,i2) then res:= min(b,i1+k+1,i2);
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var i,n:Byte;
begin
 
n:=ud1.Position;
strngrd1.ColCount:=n+1;
strngrd1.Cells[0,0]:='#';
strngrd1.Cells[0,1]:='Çíà÷åíèå';
 
for i:=1 to n do
strngrd1.Cells[i,0]:=IntToStr(i-1);
end;
 
procedure TForm1.ud1Click(Sender: TObject; Button: TUDBtnType);
var n:byte;
begin
n:=ud1.Position;
strngrd1.ColCount:=n+1;
strngrd1.Cells[n,0]:=IntToStr (n-1);
end;
 
procedure TForm1.btn1Click(Sender: TObject);
var b:mas; i:byte; fl:Boolean; n:integer; res_glob:Integer;
begin
fl:=True;
n:=ud1.Position;
SetLength(b,n);
try
 for i:=1 to n do
   begin
    b[i-1]:=strtoint(strngrd1.Cells [i,1]);
    if abs(b[i-1])>20 then
       begin
         showmessage('B по модулю не превышает 20');
         strngrd1.Cells [i,1]:='0';
         fl:=false;
       end;
   end;
except
  showmessage('Недопустимый символ');
  strngrd1.Cells [i,1]:='0';
  fl:=false;
end;
 
if fl=True then
begin
res:=0;
res:=min(b,0,n);
lbl4.Caption:=IntToStr(res);
end;
 
end;
end.