Free Pascal sorrend szám szerint, hogy kell? Írtam rá egy programot de nem rendez. Mi a baj?

Sosem láttam át a Pascalt, túl bonyolult számomra, de ez talán segít:

[link]

Ahogy látom, csak egyszer megy végig a rendezés a számokon, így a legnagyobb a legvégére kerül és vége.

Ahogy az első hozzászóló által linkelt buborékrendezésben is szerepel, dupla ciklus kell:

(a for ciklust ágyazd be egy repeat ciklusba)

...

var csereszam: byte;

...

repeat

csereszam := 0;

for i := 2 to 5 do

begin

if t[i]<t[i-1] then

begin

csere=t[i];

t[i]:=t[i-1];

t[i-1]:=csere;

csereszam:=i;

end;

end ;

until csereszam=0;

...

...