Помогите пожалуйста с одномерными массивами (паскаль)

const n=10;
var a=array[1..n] of integer;
b=array[0..n+1] of integer;
....
....
b[0]:=a1; b[n+1]:=a2;
for i:=1 to n do
b[i]:=a[i[;
....

В классическом паскале используются только статические массивы, ничего "вставить" в массив уже не получится, поскольку нельзя менять его размер. Можно только перенести все в новый массив, либо использовать такой фокус:

var b: packed array[1..n+2] of integer;
a: packed array[1..n] of integer absolute b[2];

...
b[1]:=n1;
b[n+2]:=n2;