Hallo,
ich glaub der Fehler steckt hier:
Quelltext
1: 2:
| for n:=1 to max do begin for s:= 1 to n-1 do begin |
Wieso sortierst du nur bis n-1 und vor allem von "unten" beginnend?
Du musst eigentlich so vorgehen, das im ersten Durchlauf das höchste element ganz "nach oben" sortiert wird. Dann im zweiten durchgang das zweithöchste bis auf den "vorletzten" Platz, usw...
Also erste "Aussenschleife" bis max, zweite Aussenschleife bis max-1, dritte bis max-2, ...
Dieser Beitrag erklärt das eigentlich ganz gut:
Bubblesort + optimierter Bubblesort
Damit sollte dir dann geholfen sein.
gruß,
schubser