Рекурсия delphi

[Shadowpuse]

Ребят, в общем нужна помощь в написании программы, нужно найти минимальный элемент и его номер одномерного массива А, состоящего из N элементов. Рекурсию применять для каждой из половин массива отдельно, и заканчивать когда останется один элемент. К сожалению в делфи я не сильно силён, и всё до чего я дошёл перечитав всё о рекурсии это:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, StdCtrls, Math;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
function MinElement(a: array of integer; n,l,r: integer): integer;
begin
 if l = r then             // если всего один элемент
    Result := a[l]
  else if r - l = 1 then    // если ищем минимум из двух элементов
    Result := min(a[l], a[r])
  else
  begin
  var
    mid := (l + r) div 2;
    Result := min(MinElem(a, l, mid), MinElem(a, mid+1, r));
  end;
end;
end.

[VIK_aka_TOR]

для паскаля... под дельфу адаптируешь

const
     n = 10;
var
   mas : array [1..n] of integer;
   left, right, i : integer;
   
function rec(l,r : integer): integer;
var
   t1, t2:integer;
begin
     if l=r then
        rec:=mas[l]
     else
         begin
              t1:=rec(l,(l+r) div 2);
              t2:=rec((l+r) div 2 +1, r);
              if t1<t2 then
                 rec:=t1
              else
                  rec:=t2;
         end;
end;

begin
     randomize;
     for i:= 1 to n do
         mas[i] := random(20) +1;

     writeln('Ishodnyj massiv:');
     for i:=1 to n do
         write(mas[i]:3);

         writeln;
         writeln('Min = ', rec(1 , n));
end.

[puporev]

найти минимальный элемент и его номер

const
     n = 10;
var
   mas : array [1..n] of integer;
   left, right, i : integer;

function rec(l,r : integer): integer;
var
   t1, t2:integer;
begin
     if l=r then
        rec:=l
     else
         begin
              t1:=rec(l,(l+r) div 2);
              t2:=rec((l+r) div 2 +1, r);
              if mas[t1]<mas[t2] then
                 rec:=t1
              else
                  rec:=t2;
         end;
end;

begin
     randomize;
     for i:= 1 to n do
         mas[i] := random(20) +1;

     writeln('Ishodnyj massiv:');
     for i:=1 to n do
         write(mas[i]:3);

         writeln;
         writeln('Min=',mas[rec(1 , n)],' nom=',rec(1 , n));
end.