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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.