Triedenoie cez maximum

procedure Max;
Var i,j: integer;	
   Begin		
   for i:=n downto 2 do {i ... kolko prvkov este triedime}
   begin 
     im:=1;
     for j:=2 to i do   
	   if a[im] <a[j] then im:=j;   {odpamätaj kde je maximum}
	 vymen(im,i);  
   End;		 
  

Prvé bubliny

procedure Buble;
Var i,j: integer;	
   Begin		
   for i:=n downto 2 do {i ... kolko prvkov este triedime}
     for j:=2 to i do   {j ... adresa praveho prvku z dvojice, ktorú porovnávam}
         if a[j-1]>a[j] then vymen(j,j-1);   {ak treba vymen}
   End;		 
  

Druhé - lepšie bubliny

procedure Buble(n:integer);
Var i,j: integer;
    hotovo:boolean;
   Begin
   repeat
     hotovo:=True;
     for j:=2 to n do   {j ... adresa praveho prvku z dvojice, ktorú porovnávam}
       if a[j-1]>a[j] then begin vymen(a[j],a[j-1]); hotovo:=False; end; 
     n:=n-1;
   until (n=1) or hotovo;   
   End;		 
  

Tretie - lepšie bubliny

procedure Buble(n:integer);
Var i,j,k: integer;
   Begin
   repeat
     k:=1;                   {pri k=1 triedenie konci}  
     for j:=2 to n do      {j ... adresa praveho prvku z dvojice, ktorú porovnávam}
       if a[j-1]>a[j] then begin vymen(j,j-1); k:=j-1; end;
     n:=k;   
   until n=1;   
   End;		 
  

Triedenie pretriasanim

procedure Buble;
  var i,j,i1,i2,i3,i4:integer;
  Begin	
  i1:=1;    {i1 ... odkade tredime}
  i2:=n;    {i2 ... pokade tredime}
  repeat
    i4:=i1; {i4 ... kam sa posunie i2}
    for i:=i1 to i2-1 do
      if a[i]>a[i+1] then begin i4:=i;k:=a[i]; a[i]:=a[i+1]; a[i+1]:=k; end;
    i3:=i2;  {i3 ... kam sa posunie i1}
    for i:=i4 downto i1+1 do
      if a[i]<a[i-1] then begin i3:=i;k:=a[i]; a[i]:=a[i-1]; a[i-1]:=k; end;
    i2:=i4;  {priprava pre dalsi beh}
    i1:=i3;
  until i1>=i2;
  End;
  

Triedenie vkladaním

procedure Insert;
  Begin
  for i:=2 to n do                       {ktoru kartu vkladame}
  begin
    j:=i-1;                              {od kade zacina hladanie prveho mensieho}  
	k:=a[i];                             {i-tu kartu si vyberiem aby sa posuvanim ostatnych neprepisala}
    while (j>0) and (k < a[j]) do     
	begin
	  a[j+1]:=a[j];                      {ak je karta vacsia ako ta vkladana musi sa posunut doprava}
	  j:=j-1;                            
	end;
	a[j+1]:=k;                           {vkladana karta sa vsuva na uvolnene miesto - za prvu vacsiu }
  end;	   	
  End;
  

Triedenie Shell

procedure Shell;
  Var i,j,p: integer;		 
  Begin
  h:=Pocet div 5;                {v h je pociatocny krok} 
  while h>2 do                   {pokial je krok vacsi ako 2}
  begin
    i:=1;j:=h+1;                 {i ... posledny utriedeny, j ... adresa vkladaneho}
    while j<=Pocet do
    Begin
         p:=a[j];k:=i;           {k ... adresa prveho od konca, ktory je mensi ako vkladany} 
         while (k>0) and (p<a[k]) do
         Begin
           a[k+h]:=a[k];         {posun}
           k:=k-h;               {adresa dalsieho prvku vlavo}
         End;
         a[k+h]:=p;              {na uvolnene miesto (k+h) yapiseme vkladany prvok} 
         inc(i);inc(j);          
       End;
     h:=h div 3 + h div 5 -1;
  end;

  for i:=2 to Pocet do
  BEGIN
    p:=a[i];j:=i-1;
    while p<a[j] do
    Begin
      a[j+1]:=a[j];
      dec(j);
    End;
    a[j+1]:=p;
   END;
   End;

Triedenie Quick

Procedure rozdel(l,r:integer);
Var p,i,j,x,s:integer;
BEGIN
  i:=l; j:=r; 
  x:=a[(l+r) div 2];                        {za triediacu hodnotu berieme hodnotu stredn0ho prvku}
  repeat
    while a[i]< x do inc(i);
    while x < a[j] do dec(j);
    if i<= j then                        {ak i<= j tak sme nasli par na vymenu}
    begin
      p :=a[i]; a[i] := a[j]; a[j] := p;
      inc(i); dec(j);                       
    end;
  until i>j;                                {i,j sa prekrizili, cize rozdelenie je skoncene} 
  if l<j then quick(l,j);
  if i<r then quick(i,r);
END;
				   
Procedure quick;
Begin
    rozdel(1,n)
End;

Triedenie dobosievicz

Procedure dobosievicz;
Var p,i,j,k:integer;
    h,m,s,ss:WORD;
Begin
  h:=Pocet div 3;
  while h>2 do
  begin
    i:=pocet;
    j:=i-h;
    while j>0 do
    BEGIN
      if a[i]<a[j] then
      Begin
        p:=a[i]; a[i]:=a[j]; a[j]:=p;
      End;
      dec(i);dec(j);
    END;
     h:=3*h div 4;

    i:=1+h;
    j:=1;
    while i<=Pocet do
    BEGIN
      if a[i]<a[j] then
      Begin
        p:=a[i]; a[i]:=a[j]; a[j]:=p;
      End;
      inc(i);inc(j);
    END;
     h:=3*h div 4;
  end;

  a[0]:=0;
  for i:=2 to Pocet do
  BEGIN
    p:=a[i];j:=i-1;
    while p<a[j] do
    Begin
      a[j+1]:=a[j];
      dec(j);
    End;
    a[j+1]:=p;
  END;
End;