Задача на Паскале Массивы

[Student]

Задача на Паскале Массивы

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

Программа рабочая но нужно избавиться от masVih, т.е. использовать только один массив - кто-нибудь может помочь?


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

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

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

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

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

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

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