Schönen guten Morgen,
BubbleSort habe ich irgendwie so (wie unten gezeigt) in Erinnerung.
Warum verwendest Du (Sie) ein "repeat ... until" darin!?
Delphi-Quellcode:
const amax = 3;
var Carray : array[0..amax] of integer;
a, b : integer;
...
Carray wird mit Werten gefüllt
...
for a:=0 to amax-1 do
for b:=a+1 to amax do
if Carray[a] < Carray[b] then
Swap_Carray(a,b); // austauschen der Inhalte an den Positionen a und b
Mit freundlichen Grüßen
Manfred Zenns