Переместить все положительные элементы в начало массива ПОЖАЛУЙСТА !!!!!! ПОМОГИТЕ !!!!!!!!!!!!!!!!!!!!!!!!!!!!

const   n = 20; var   a,b: array[1..n] of integer;   i, j, i2: integer; begin   Randomize;   Writeln('Элементы массива');   j:=0;   for i := 1 to n do   begin     a[i] := Random(51)-25;     Write(a[i]:4);     if a[i]<0 then begin Inc(j); b[j]:=a[i] end;   end;   Writeln;   for i := 1 to n do     if a[i]>=0 then begin Inc(j); b[j]:=a[i] end;   Writeln('Результат');   for i := 1 to n do Write(b[i]:4);   Writeln end. Тестовое решение: Элементы массива    3  14  10   1  -3  -2 -11 -12  13   1  17  13   8  24  -3 -23 -17  -8 -10 -22 Результат   -3  -2 -11 -12  -3 -23 -17  -8 -10 -22   3  14  10   1  13   1  17  13   8  24