Príklad na triedenie výmenou:

type typ=array[1..100] of integer;
var i:integer;
B:typ;
procedure TRIEDENIE (var A:typ; D,H:integer);
var I,J,KH:integer
BOLAVYMENA:boolean;
begin
BOLAVYMENA:=true;
KH:=H;
while (KH>D) and BOLAVYMENA do
begin
BOLAVYMENA:=false;
I:=D;
while I if A[I]>A[I+1] then begin
BOLAVYMENA:=true;
J:=A[I];
A[I]:=A[I+1];
A[I+1]:=J;
end;
I:=I+1;
end;
KH:=KH-1;
end;
begin
randomize;
for i:=1 to 100 do B[i]:=random(10);
TRIEDENIE(B,1,84); {utriedi prvky 1 až 84 poľa B vzostupne}
end.

Triedenie vsúvaním je oproti triedeniu výberom a výmenou je pomalšie. Rychlejšie je triedenie výmenou.