sortowanie bąbelkowe nie działa

0

Witam, mam problem z sortowanie bąbelkowym. Tablica nie chce się posortować, dziwne bo wcześniej robiłem tak samo i działało. Co jest źle ?

var tablica: array of array of integer;
    tablicatym: array of Integer;
    n, m, i, k, suma, sumacalkowita, licznik, licznik2, sredniaint, v, tym, li, c : Integer;
    Srednia, sredniacala, mediana: real;

begin
sumacalkowita:=0;

write('Podaj ilosc wierszy: ');
readln(n);
write('Podaj ilosc kolumn: ');
readln(m);
   SetLength(Tablica, n+1,m+1);
   SetLength(tablicatym,m+1);

n:=n-1;
m:=m-1;
licznik:=0;
sumacalkowita:=0;
suma:=0;
licznik2:=0;
li:=0;
writeln('');
{-----------------------------------------------------------------------------------------------------------------}
for i := 0 to n do
  begin
   Randomize;

    for k := 0 to m do begin

    tablica[i][k]:= Random(1000);                   {wylosowanie liczb}

    end;


  end;
{--------------------------------------------------------------------------------------------------------------------------}


{------------------------------------------------------------------------------------------------------------------------}

 for i := 0 to n do begin                                                 


for v := 0 to m do begin
  tablicatym[v]:= tablica[i][v];
  writeln(tablicatym[v]);
end;
writeln('');


 
 repeat  
for c := 0 to m do begin 

li:=0;  

if tablicatym[c] > tablicatym[c+1] then
  begin
   tym:=tablicatym[c+1];                                                      {uporzadkowanie tabeli TABLICATYM}
tablicatym[c+1]:= tablicatym[c];
tablicatym[c]:= tym;
li:=li+1;
  end;
  end;
 until (li =0);


for c := 0 to m do 
 writeln(tablicatym[c]);

writeln('----------------');
end;
0

Jeżeli użytkownik poda 2 wiersze i 2 kolumny to dostanie:

1 2 3
4 5 6
7 8 9

Nie wygląda mi ta tabelka na 2x2

repeat  
for c := 0 to m-1 do begin
0

To nie naprawi sortowania, dalej nie działa

0

Jeszcze li:=0; przenieść wiersz wyżej

0

A wystarczyło poszukać w sieci - jest mnóstwo gotowych kodów, które przedstawiają ten sposób sortowania, np.: http://edu.i-lo.tarnow.pl/inf/alg/003_sort/0006.php

Sporo masz zmiennych, nie wszystkie są potrzebne; Do tego procedurę Randomize wywołaj raz, nie w każdej iteracji pętli.

1 użytkowników online, w tym zalogowanych: 0, gości: 1