Вставить число 100 после пятого элемента массива

const n = 10;
dd = 51;
type myarray = array [1..n+1] of integer;
var a:myarray; x,k:integer;
i,s:integer;
p,q:integer;
procedure init (c,d:integer;i:integer; var x:myarray);
  Begin
    for i:= 1 to n do 
    x[i]:= c + random (d-c);
  end;
Procedure Print (i:integer;var x:myarray);
  Begin
    for i:=1 to n do Write (x[i],' ');
  end;
Procedure insert1(k1,x1:integer;i:integer; var m: myarray);
begin
 
for i:=n downto k1 + 1 do
    m[i + 1] := m[i];
    m[k1 + 1] := x1;
 
end;
begin
     init(A);
     Print(n,A);
     writeln('Nomber elementa, posle vstavlyat: ');
     writeln('vstavlyaemoe chilo: ');
     Readln(k,x);
     insert1(k,x,a);
     print(n+1,A);
     readln;
end.

const n = 10;
type myarray = array [1..n+1] of integer;
procedure init (c,d:integer; var x:myarray);
var i:integer;
Begin
for i:= 1 to n do
x[i]:= c + random (d-c+1);
end;
Procedure Print (k:integer;x:myarray);
var i:integer;
Begin
for i:=1 to k do Write (x[i],' ');
writeln;
end;
Procedure insert1(k:integer; var m: myarray);
var i:integer;
begin
k:=k+1;
for i:=k downto 6 do
m[i] := m[i-1];
m[6] := 100;
end;
var a:myarray;
 
begin
init(20,100,A);
Print(n,A);
insert1(n,a);
print(n+1,A);
readln;
end.