Вставить в массив c[1..n] третий элемент с конца массива, равный 7 — Pascal(Паскаль)

var
c:array[1..100]of integer;
i,n:integer;
begin
randomize;
writeln('vvedite kol-vo elementov');
readln(n);
writeln('massiv');
for i:=1 to n do
begin
c[i]:=random(20);
write(c[i]:4);
end;
writeln;
for i:=n+1 downto n  do
c[i]:=c[i-1];
c[n-1]:=7;
writeln('novyj massiv');
for i:=1 to n+1 do
write(c[i]:4);
readln;
end.