Составить программу вставки в массив a(n) первого элемента, равного 7

var a:array [1..100] of integer;
i,n:integer;
Begin
     read(n);
     for i:= 1 to n do
         read(a[i]);

     for i:= n downto 1 do
         a[i+1]:=a[i];

     a[1]:=7;

     for i:=1 to n+1 do
         write(a[i],' ');
End.

Program R1;
Var a:array[1..100] of integer;
i,n:integer;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n);
for i:=1 to n do read(a[i]);
for i:=n+1 downto 2 do
a[i]:=a[i-1] ;
a[1]:=7 ;

for i:=1 to n+1 do write(a[i],' ');
close(input);
close(output);
end.

 например

ввод

4

1 2 3 4 

 вывод 

7 1 2 3 4