Benutz doch mal an Stelle von A[
i] die Variable
j. Dann sollte es funktionieren. Habe ich beim ersten Mal übersehen.
Im Anhang ein Bild, wie du Code mit Delphi Tags versehen kannst, dann wird er besser lesbar.
Delphi-Quellcode:
then begin
Temp := A[j];
A[j] := A[j+1];
A[j+1] := temp;
end;