Suche im Array

[Rainer1000]

jetz nur mal ganz schell hingeschusselt würd ich das so machen:

Delphi-Quellcode:

function Suchen: byte //byte reicht wenn das Array von 1-8 geht...
var i: Byte;
begin
  suchen:=1;
  for i:= 2 to 8 do
    begin
      if f[i]<f[i-1]
        then
          suchen:=i
    end;
end;

Jetz müsste man noch fehler ausschließen wie leeres oder halbvolles Array, evt. beim aufruf noch übergeben welches array...