На паскале дан численный массив m, элементы которых по возрастанию и число a. не нарушая порядок возрастания элементов включить число a в массив m.

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.

const n=11;

var b:array[1..n] of integer;

i,j,c,a:integer;

begin

randomize;

for i:=1 to n-1 do begin

b[i]:=random(50);

write(b[i]:3);

end;

writeln;

for i:=1 to n-2 do

for j:=n-2 downto i do

if b[j]>b[j+1] then begin

c:=b[j];

b[j]:=b[j+1];

b[j+1]:=c;

end;

writeln;

writeln('Введите число а');

read(a);

writeln('a= ',a);

b[n]:=a;

for i:=1 to n do

write(b[i]:3);

end.