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

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);  Writelnend.Тестовое решение:Элементы массива   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