Export page to Open Document format

27d - Řazení

i:=1;
Pom := Prvni;
while (i < Max)
{
  //Hledání následníka přesunutého na pozici větší než i
  while (Pom < i)
  { 
    //výměna akt. prvního s akt. minimálním
    Pom = Pole[Pome].Uk;
  }
  Pole[i] = Pole[Pome;
  Pole[i].Uk = Pom; //stejná výměna ukazatelů
  i = i + 1; //prvních i-1 prvků je již na svém místě
}