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;