Auswahlsort

[Minz]

Delphi-Quellcode:

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

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

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

Also so rum sieht mir das richtiger aus, wobei du jetzt nach dem kleinsten Element suchst.
(Du willst ja mit dem kleinsten anfangen)
Wurde im Array durch die For j - Schleife ein kleineres Element gefunden als an Position i dann musst du später also die Balken an position i mit min vertauschen.