Viết chương trình chèn phần tử k vào trong mảng!! Giúp em với!

program chenpt;
uses crt;
type mang=array[1..100] of integer;
var n,i,x,dem,k:integer;
    a:mang;
procedure nhap(var a:mang; var n:integer);
var i:integer;
begin
write(‘nhap n:’); readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’); readln(a[i]);
end;
end;
{——————————————-}

procedure xuat(a:mang; n:longint);
var i:integer;
begin
for i:=1 to n do
write(a[i],’ ‘);
writeln;
end;

{——————————————}
procedure chenk(var a:mang;var n:integer; x,k:integer);
var i:integer;
begin
for i:=n+1 downto k+1 do a[i]:=a[i-1];
a[k]:=x;
n:=n+1;
end;

{——————————————}
begin
nhap(a,n);
xuat(a,n);
write(‘nhap vi tri:’); readln(k);
write(‘nhap so can chen:’); readln(x);
sapxep(a,n);
chenk(a,n,x,k);
xuat(a,n);
readln
end.