free pascal IDE 高手来

var i,j,k,n:longint;
a:array[1..10000]of longint;
begin
readln(n);//读入个数
for i:= 1 to n do read(a[i]);//读入数组的数字
readln(k);//读入加入的数
for i:= 1 to n-1 do
begin
if (a[i]>k) and (a[i+1] begin
for j:= n+1 downto i+2 do a[j]:=a[j-1];//将后面的数字向后错一位
a[i+1]:=k;//把该位置填上
break;
end;
end;
writeln;
for i:= 1 to n+1 do write(a[i],' ');//输出
end.

题目说仔细，是输入什么，输出什么
加入的是的输入的吗