Chèn K vào dãy tăng dần

Đề Bài: Cho dãy A, N số nguyên và được sắp thêm tăng dần và số nguyên dương K. Chèn K vào dãy A sao cho dãy vẫn tăng dần

Var a:array [1..100] Of integer;
k,n,i,tam,x:integer;
Begin
Write('Nhap so phan tu n:');
ReadLn(n);
For i:=1 to n do
Begin
Write('a[',i,']=');
ReadLn(a[i]);
End;
Write('nhap vao so K :');
ReadLn(K);
i:=1;
While (K>a[i]) and(i<=n) do i:=i+1;
For x:=n+1 downto i do
a[x]:=a[x-1];
a[i]:=k;
Write('Mang da chen K:');
For i:=1 to n+1 do write(a[i],' ');
ReadLn;
End.