Min-Sort Verfahren

[gammatester]

Du mußt natürlich den bemängelten doppelten Index in der gesamten Schleife ersetzen, nicht nur in der for-Anweisung, also:

Delphi-Quellcode:

for k:=1 to 100 do
memo1.Lines.Add(IntToStr(za[k]));