Дан вектор, добавить элемент после i-го элемента — Pascal(Паскаль)

uses crt;
var a,b:array[1..100]of integer;
i,n,p,k:integer;
 
begin
 clrscr;
 textcolor(6);
 write('N-> ');
 readln(n);
 write('введите элемент ');readln(p);
 for i:=1 to n do
 begin
   write(i,': ');
   read(a[i]);
 end;
 readln;
 k:=0;
 for i:=1 to n do
 begin
  k:=k+1;
  b[k]:=a[i];
  k:=k+1;
  b[k]:=p;
 
 end;
 for i:=1 to k do
 begin
   if i mod 2 = 0 then
   begin
     textcolor(10);
     write(b[i],'  ');
     textcolor(6);
   end
   else
   write(b[i],'  ');
 end;
 readln;
end.