для сортировки был применен "пузырьковый" метод
const
n : integer = 10;
var
d : array of integer := new integer[n];
temp : integer;
begin
d := arrRandom(n, 1, 100);
writeln(d, ' начальное состояние массива');
for var i := n-1 downto 0 do begin
for var j := 0 to n-2 do begin
if d[j] > d[j+1] then begin
temp := d[j+1];
d[j+1] := d[j];
d[j] := temp;
end;
end;
end;
writeln(d, ' после сортировки');
end.
так же отсортировать массив можно командой
Sort(d);
но вряд ли задача была именно в этом.