Auswahlsort

[Minz]

Delphi-Quellcode:

For i := 1 To BalkenZahl - 1 Do Begin
  min := recsize2[i];
  Application.Processmessages;

  For j := i + 1 To BalkenZahl Do Begin
    Application.Processmessages;

    If recsize2[min] < recsize2[j] Then min := j;
  End;
...

Willst du da das Minimum oder das Maximum ermitteln?