Übung: Array und Bubble sort

[rossinie00]

hi,
soll fuer die schule eine uebung machen die einige arrays miteinander vergleicht.
in der zweitletzten spalte schreibt er zufallszahlen und in der letzten soll er sie mit bubble sort sortieren aber irgendwie macht ers nicht

Code:

procedure TForm1.Button1Click(Sender: TObject);
var i,k,j,buffer,z,m: integer;
    zahlen,zahlendown,zufallsort,zufall: Array[1..10] of integer;
begin
  randomize;
    for i := 1 to 10 do
    begin
      zahlen[i] := i;
      sg.cells[1,i] := inttostr(zahlen[i]);
    end;
  for i := 1 to 10 do
    begin
      z := zahlen[i] + 1;
      sg.cells[2,i] := inttostr(z);
    end;
  for i := 1 to 10 do
    begin
      zahlendown[i] := i;
      m := zahlen[10] - zahlendown[i];
      sg.cells[3,i] := inttostr(m);
    end;
  for i := 1 to 10 do
    begin
      zufall[i] := random(100)+1;
      sg.cells[4,i] := inttostr(zufall[i]);
    end;

  { B U B B L E S O R T  Sortierverfahren beginnt hier}

  for i:=10 downto 1 do
    begin
    for j:= 1 to i do
      begin
      if zufall[i]>zufall[j] then
        k := 0;
        inc(k);
        begin
          buffer:= zufall[i];
          zufall[i]:= zufall[j];
          zufall[j]:= buffer;
          sg.cells[5,k] := inttostr(zufall[j]);
        end;
      end;
    end;

end;