Bubble Sort Schleifentyp umändern aber wie ?

[Korg PA 2x Pro]

Hallo ich habe die Aufgabe aus einem Bubblesortcode der mit FOR-Schleifen geschrieben ist, den Schleißfentyp zu ändern einmal in While und einmal in Repeat. Soweit so gut! Ich hab schon einige versuche gestartet aber komme nicht wirklich auf einen grünen Zweig.

Wäre euch dankbar, wenn mir einer den Code umändern könnte!

Gruß Korg Pa 2x Pro

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var i, j, h, n: integer;
begin

listbox2.Clear;

n:= strtoint (edt_a.text);

for i:= 1 to (n-1) do
  for j:= i+1 to n do

    if a[i] > a[j] then
      begin
        h := a[i];
        a[i]:= a[j];
        a[j] := h;
      end;


  for i:=1 to n do
    listbox2.Items.Add (inttostr ( a[i]));
end;