Pascal. составьте программу генерирущию одномерный массив b(n) который содержит те же элементы что и одномерный массив a(n) но в котором отрицательные числа предшествуют неотрицательным

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var b:=(a.Where(t->t<0)+a.Where(t->t>=0)).ToArray; b.Println
end.

Пример
n= 16
19 13 8 -50 28 13 -34 -7 13 -41 37 -34 34 -23 14 21
-50 -34 -7 -41 -34 -23 19 13 8 28 13 13 37 34 14 21