Anfänger probiert kniffel und kommt nicht weiter

[Satty67]

oder halt BubbleSort.

Füge die Procedure nach {$R *.dfm} ein:
(oder besser vor der Methode, die Bubblesort nutzt oder noch besser in eine eigene Tools-Unit)

Delphi-Quellcode:

{$R *.dfm}  (* Die Zeile in Deinem Code suchen *)

procedure BubbleSortWuerfel(var A : array of Integer);
var
  i,j,t : Integer;
begin
  for i := Low(A) to High(A) do
    for j := Low(A) to High(A) - 1 do
      if A[j] > A[j + 1] then begin
        t := A[j];
        A[j] := A[j+1];
        A[j+1] := t;
      end;
end;

Sortieren kannst Du dann, nachdem Du die Random-Werte zugewiesen hast:
BubbleSortWuerfel(w); btw: Ein Würfel hat 6 Seiten