rekurzivno iskanje max elementa v tabeli

Napisal sem iterativno rešitev za iskanje največjega elementa v poljubno veliki tabeli elementov.

Zdej pa tega ne znam pretvorit v rekurzivno različico, da bi primerjal čase iskanja.

Iterativna varianta gre tkole:

procedure najvecjiElIterativno;
var i,najvecji,rez:integer;
begin
najvecji:=tabR[0].key;
for i:=1 to stEl do
begin
if najvecji < tabR[i].key then
begin
najvecji:=tabR[i].key
end;
end;
rez:=najvecji;
Form1.Edit2.Text:=inttostr(rez);
end;

Zdej bi pa prosu, če zna kdo tole dat v rekurzivno varianto, da mi prosim pomaga.
Bil bi full vesel, tnx!

Gundolf: Upam, da vsaj veš kaj je rekurzija... s temle si me pa cist ozalu no.

Nimam problemov okrog tega, da ne bi vedu, da gre za to, da funkcija klice samo sebe.

Ce ze delas rekurzivno, delaj vsaj tako, da array 'razbijes' na 2 enakovredna dela, in rekurzivno klices max nad polovico, kar se rekurzivno klice, dokler ne ostane samo en element... :)

int max_stevilo=0;
int *tabela;

int max(int indeks) {
if(tabela[indeks]>max_stevilo)
max_stevilo=tabela[indeks];
if (indeks>0) return max(indeks-1); else return max_stevilo;
}

Ta enostavna varianta. Klices max(elementov-1).
LP