[Troll]

function min(a: array of real) : integer;
 var m,i : integer;
     p : real;
 begin
  m:=0;
  p:=a[0];
  for i:=1 to high(a) do
    if ((a[i]<p) AND (a[i]>0)) then
     begin
       m:=i;
       p:=a[i];
     end;
  min:=m;
 end;