PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var M:=SeqRandom(ReadInteger('n='),-99,99).Sorted.ToArray; M.Println;
var a:=ReadInteger('Введите вставляемое число:');
var i:=M.FindIndex(t->t>a);
if i>-1 then M:=M?[:i]+Arr(a)+M?[i:]
else M:=M+Arr(a);
M.Println
end.