Задача на массивы, Помогите исправить код Опции

[Ptahin]

задание:
В целочисленном векторе vectorn переместить в начало все нулевые элементы, за ними – все отрицательные элементы в порядке их следования, а за ними – все положительные элементы в порядке их следования.

Условие: нельзя использовать второй массив!!!

Uses Crt;
Var i,j:Byte;
mas:array[1..10] of integer;
min,max,n:integer;
Begin

write ('n = ');
readln (n);
Write('min = ');
ReadLn(min);
Write('max = ');
ReadLn(max);
WriteLn;

WriteLn('Ishodny vector:');
Randomize;
for i:=1 to n do
begin
mas[i]:=random(max-min+1)+min;
write(mas[i]);
write(' ');
end;
WriteLn;

WriteLn('Vihodnoy vector:');
j:=1;

for i:=1 to n do
begin
if (mas[i]=0)then
begin
mas[j]:=mas[i];
j:=j+1;
end;
end;

for i:=1 to n do
begin
if (mas[i]<0)then
begin
mas[j]:=mas[i];
j:=j+1;
end;
end;

for i:=1 to n do
begin
if (mas[i]>0)then
begin
mas[j]:=mas[i];
j:=j+1;
end;
end;

for i:=1 to n do
begin
write(mas[i]);
write(' ');
end;
readln;
End.