Идея в том что бы создать новый массив, а затем последовательно вставлять в новый массив элементы из старого массива, чтобы созданный массив был всё время упорядоченным.
repeat
pr:=0;
for i:=1 to n-1 do
if a[i]< a[i+1] then
begin
p:=a[i];
a[i]:=a[i+1];
a[i+1]:=p;
pr:=1;
end;
until pr=0;