1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

function gibWert(xStart: integer) : integer
var lTmpWert,
    lIndex,
    i        : integer
begin
 lTmpWert := 0;  // init mit Wert kleiner dem kleinstem Wert im Array
 lIndex := -1;   // default = kein Treffer  
 for i := 0 to length(array)-1 do
 begin
  if (array[i].wert < xStart) and 
     (array[i].wert > ltmpWert) then
  begin
   lTmpWert := Array[i].wert;
   lIndex   := i;  
  end;
 end;
 if (lIndex > -1) then
  Result := Array[i, 0].Wert;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

for i := 0 to length(array) do
begin
 Result := 0;
 if (array[i].wert = xStart) then
 begin
  if (i > 0) then
   Result := xArray[i-1].Wert; 
 end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

function BinSearch( A: array of integer; Left: integer; Right: integer; Key: integer): integer;
var mid: integer;
begin
  Mid:= Left + ((Right-Left) div 2);
  if (A[Mid]=Key)or(Left>=Right) then
    Result:=Key
  else if A[Mid]<Key then
    Result:=BinSearch(A,Mid+1,Right)
  else if A[Mid]>Key then
    Result:=BinSearch(A,Left,Mid-1);
end;

function NextSmaller( A: array of integer; Key: integer): integer;
var Pos: integer;
begin
  Pos:=BinSearch(A,0,High(A),Key);
  while (Pos>0)and(A[Pos]>Key) do
    Pos:=Pos-1;

  if A[Pos]>Key then
    Result:=-1
  else
    Result:=Pos;
end;