Първо една забележка: като постваш код го слагай в таг 'пре', щото иначе става боза. Освен това за всеки случай не ползвай i, щото тоя таг не работи добре нещо. На времето работеше.
Второ това дето си го написал не е 'мехурче', а 'пряка селекция' - най-лесният и естествен алгоритъм за сортиране. Мехурчето просто има много атрактивно име, затова е популярно.

for ii:=1 to n-1 

  for j:=i+1 to n 

    if a[ii]>a[j] then 

    begin 

      h=a[ii]; 

      a[ii]=a[j]; 

      a[j]=h; 

    end