Проблема в растановке Опции

[Artem7]

Задание: В одномерном массиве все отрицательные элементы переместить
в начало массива, а остальные — в конец с сохранением порядка
следования. Дополнительный массив заводить не разрешается.
Сделал вот только не могу придумать как реализовать сохранения порядка чисел...(

Program rastonovka;
Const n=6; {Число элементов в массиве}
Type massiv=array[1..n] of integer; {Кол-во элементов и тип массива}
Var  A,B:massiv; {Массив A,B}
     i,j,k,p,s:integer;
     Procedure Init_mas(Var A:massiv); {Ввод массива}
Var  i:integer;
Begin
     For i:=1 to n do
     Begin
     A[i]:=random(100)-50;
     End;
End;
Procedure Print_mas(A:massiv); {Вывод массива}
Begin
     For i:=1 to n do
     write(A[i]:5);
     writeln;
End;
    Begin
    Randomize;
    Init_mas(A);
    Print_mas(A);
    j:=1;k:=n;
    For i:=1 to n do
    if A[i]<0 then
    Begin s:=A[j];A[j]:=A[i];j:=j+1;A[i]:=s; end;
    Print_mas(A);
    readln;
End.

[IUnknown]

Когда ж вы уже поиском начнете пользоваться, прежде чем спрашивать?

Нужна помощь по массивам

[Artеm]

Когда ж вы уже поиском начнете пользоваться, прежде чем спрашивать?

Нужна помощь по массивам

спасибо :-)