вставка элементов в массив Опции

[Игорь2]

Здравствуйте!
Помогите решить задачу

"Вставить в массив число 7 после третьего элемента "

Я решил задачу похожую, но как вставить после третьего элемента???
В одномерном массиве целых чисел вставить m-й элемент массива

program f; write('введите номер элемента для вставки');
const n=10; readln(m);
var a : array [1..n+1] of real; for i:=n+1 downto m do
i,m : integer; a[i]:=a[i-1];
begin for i:=1 to n+1 do
randomize; writeln (a[i]);
for i:=1 to n do end.
begin
a[i]:=random(20);
writeln(a[i]);


Добавлено через 4 мин.
Я извиняюсь вот листинг мною решённой программы
program f;
const n=10;
var a : array [1..n+1] of real;
i,m : integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(20);
writeln(a[i]);
write('введите номер элемента для вставки');
readln(m);
for i:=n+1 downto m do
a[i]:=a[i-1];
for i:=1 to n+1 do
writeln (a[i]);
end.