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...