рассортируйте заданный линейный массив по возрастанию.(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