Воткнуть элемент в массив

program massiv ;
uses crt;
nbsp;nbsp;type mas=array[1..1000] of integer;
var i,n,k,r: integer;
nbsp;nbsp;nbsp;nbsp;m:mas;
begin writeln (введи число) ;
readln (n);
nbsp;randomize;
nbsp;for i:=1 to n do
nbsp;nbsp;nbsp;nbsp;begin
nbsp;nbsp;nbsp;nbsp;m[i]:=random(45)+1;
nbsp;nbsp;nbsp;nbsp;write(m[i], nbsp;);
nbsp;nbsp;nbsp;nbsp;end;
nbsp;writeln;
nbsp;write(введи номер эл-та ); readln (k) ;
nbsp;write(введи эл-т ); readln (r) ;
nbsp;nbsp;writeln;
nbsp;for i:=n+1 downto 1 do
nbsp;if igt;k then m[i]:=m[i-1];
nbsp;m[k]:=r;
nbsp;for i:=1 to n+1 do
nbsp;write(m[i], nbsp;);
nbsp;end.