Die binäre Suche

[DelfinMann]

Moin moin!

Möchte jemand sich diesen Delphi-Code anschauen und etwas dazu sagen, also z.B. auf Schwächen oder Lücken hinweisen.

Danke!

Delphi-Quellcode:

program BinaerSuche;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  ele : array[1..20] of integer = (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20);

var
  u, o, ergebnis, offen, gesucht, mitte : integer;

begin
  u := 0; o := 20; offen := 0; mitte := 0;
  ergebnis := offen;

  write('Geben Sie die gesuchte Zahl ein: ');
  readln(gesucht);

  while ergebnis = offen do begin

    if u > o then
      begin ergebnis := -1; write('Die gesuchte Zahl ist nicht vorhaden!') end
        else mitte := ( u + o ) div 2;

      if ele[mitte] = gesucht then
        begin ergebnis := gesucht; write('Die gesuchte Zahl (', ergebnis ,') ist vorhaden.') end
          else if ele[mitte] > gesucht then
            o := mitte - 1 else
              u := mitte + 1;
  end;


readln;
end.