program debugger_test;

{$U+,R-}  { das braucht der debugger um zu arbeiten }
{$I debugger.pas                                    }

var
  arr : array [1..10] of byte;
  i   : integer;
  sum : integer;

procedure summe;
begin
  sum:=0;
  for i:=0 to 10 do  {   HIER STECKT DER FEHLER :   }
                     {    0 IST FALSCH !!!          }
  sum:=sum+arr[i];
end;

begin
  { init: adresse von i, typ von i, comperator,     }
  { display=true, trace=true                        }
  debugger_init(addr(i),db_integer,lt,true, true);

  { wert von i fuer die vergleiche sei 1. dh,       }
  { wenn i<1 , dann zeige im source                 }

  trace_int:=1;

  { starte jetzt den debugger                       }
  debugger_on;

  writeln('Debugger installiert und gestartet');
  for i:=1 to 10 do begin { das ist noch in Ordnung }
    arr[i]:=i;
    write(i);
  end;
  summe;
  writeln(sum);
  debugger_off;
end.