完善程序：pascal语言

数组a中有n个按升序排列的元素，现要插入一个元素，且插入后a中的元素仍是升序。定义过程p对给定的值y，首先找插入位置，然后插入。
程序：
program chashu(input,output);
const n=50;
type
atype=array[1..n] of niteger;
var
a:atype;
i,count:integer;
procedure p(var x:atype;y:integer;var m:integer);
var i,k:integer;
begin
if m>=n then writeln('out range')
else begin
_________①________
while_________②_______do
k:=k+1;
_________③_________
x[i+1]:=x[i];
_________④_________
m:=m+1
end;
end;
begin
readln(count);
for i:=1 to count do
a[i]:=3*i;
for i:=1 to count do
write(a[i]:4);
write('y=');readln(y);
__________⑤__________
for i:=1 to count do
write(a[i]:4);
writeln
end.
注意：在原程序中，有y的读入，但未定义，以下两程序补充都有溢

C语言程序完善。 完善C语言程序 什么是pascal语言程序 帮忙完善c语言程序 NOIP初赛 普及组（完善程序）pascal 用Pascal语言编程序 C语言完善程序题2道 pascal语言程序：找并集 用pascal语言编写2个程序 编写pascal语言程序~~会的帮忙！