Задание на паскале

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

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.