Pascal/Turbo Pascal - pascal metodo burbujas

Buenas el motivo de esta nota es para q me presten ayuda con un problema q tengo se me ha mandado a ordenar un vector de 20 espacios con un rango de numeros comprendidos entre -20 y 20 estoy utilizando el metodo de burbujas si ingreso puros numeros positivos me los ordena sin problemas (los debo ordenar de forma descendente y ascendente) el problema viene cuando el vector tiene numeros negativos los cuales me los cambia por 0 (ceros) no se xq y los positivos si me los ordena...

espero que me puedan ayudar... ya no consigo la solucion...! :S

gracias de antemano

Darwin pasa el codigo!!!

aca te dejo el algoritmo

procedure burbujeo(Var Vec:Vector:Array of integer; nroEle:integer);
var
x,y,z,pos:integer;
aux:integer;
begin
For x:=nroEle downto 2 do
begin
z:=x-1;
for y:=1 to z do begin
pos:=y+1;
IF (Vector [ Y ] > Vector[ Pos ] ) Then
begin
Aux:=Vector[Y];
Vector[ Y ]:= Vector[POS];
Vector[POS]:= Aux;
end;
end;
end;
end;