const

   n = 100; { количество элементов в массиве }

var

   a : array of integer := new integer[n];

function sortArr(d : array of integer) : array of integer;

var

   ord : integer;

begin

   for var i := 0 to n-2 do for var j := i+1 to n-1 do if d[i] > d[j] then begin

       ord := d[i];

       d[i] := d[j];

       d[j] := ord;

   end;

   result := d;

end;

begin

   a := arrRandom(n, 0, 9);

   writeln(a);

   a := sortArr(a);

   writeln;

   writeln('Массив после сортировки пузырьковым методом: ');

   writeln(a);

end.