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.