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

Дан численный массив 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.