Procedure BubbleSort1(var v:vetor;tam:integer);
var
   i,j,aux : integer;
begin
   for i := 1 to tam do
      for j := i+1 to tam do
         if v[i] > v[j] then
         begin
            aux := v[i];
            v[i] := v[j];
            v[j] := aux;
         end;
end;