index wird ohne aufruf auf 0 gesetzt

[Nicodius]

index <> i


  index, index2 : Integer;