Упорядочить массив из 5 чисел методом пузырька

for j:=5 downto 2 do
for i:=1 to j-1 do
 if a[i]>a[i+1] then begin
 x:=a[i];
 a[i]:= a[i+1];
 a[i+1]:=x;
 end;