рассортируйте заданный линейный массив по возрастанию. (Pascal)

Procedure Bubble (var item: DataArray; count:integer);

var

i, j: integer;

x: DataItem

begin

for i : = 2 to count do

begin

for j : = count downto i do

if item[j-1]>item[j] then

begin

x : = item[j-1];

item[j-1] : = item[j];

item[j] : = x;

end

end

end