program uporyadochivanie;
uses crt;
var
a:array[1..10] of integer;
i,prom,j,n,k:integer;
begin
clrscr;
writeln('vvedit 10 chisel massiva : ');
for i:=1 to 10 do
read(a[i]);
writeln('massiv a do perestanovlennia : ');
i:=1;
while i<=10 do
begin
k:=1;
while (k<=5) and (i<=10) do
begin
write(a[i]:5);
i:=i+1;
k:=k+1;
end;
writeln;
end;

begin
n:=10;
for i:=2 to n do
for j:=n downto i do
if a[j-1]>a[j] then
begin
prom:=a[j-1];
a[j-1]:=a[j];
a[j]:=prom;
end;
end;  
writeln('massiv posle perestanovki : ');
for i:=1 to 10 do
write(a[i],' ');
readln;
readln;
end.

Программе задан одноизмеримый массив из 10 чисел. Она упорядочивает массив в порядке возрастания и печатает входной и исходный массив.