Delphi - Bubblesort - bin totaler anfänger...

[eLverpeilo]

Nabend nochmal ;>
also habe hier mal was gemacht , sind wahrscheinlich viele fehler drin , aber wollte mal von euch wissen was ich daran noch ändern muss:


[procedure TForm1.Bubble_Sort(var Z: TZ_Feld);]
[var i, j, a, s, b: Integer; vertauscht : Boolean;]
[procedure Vertauschen( m, n : integer);]
[var Hilfszahl: integer ;]
[begin]
[Hilfszahl:=Zahlenfeld[m];]
[Zahlenfeld[m]:=Zahlenfeld[n];]
[Zahlenfeld[n]:=Hilfszahl;]
[vertauscht:=true;]
[end;]


[begin]
[repeat]
[vertauscht:=true;]
[for i:= 9 downto 1 do]
[for j:= 1 to i do]
[a:=StrToInt(StringGrid1.Cells[i,1]);]
[b:=StrToInt(StringGrid1.Cells[i+1,1]);]
[if a > b then]
[StringGrid1.Cells[i,1]:=IntToStr(b);]
[StringGrid1.Cells[i+1,1]:=IntToStr(a);]
[until sortiert;]

// hier muss ich irgendwie Stringgrid1 von j = b zuweisen
und j+1 = a .

vertauscht : = false ;
end;


aber irgendwie krieg ich das alles irgendwie nicht hin :>

mfg eLverpeilo