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

[Игорь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.

[volvo]

Во-первых, оформи код как положено:

2. Все тексты программ должны помещаться в теги [cоde=pas] ... [/cоde].

А во-вторых, не обязательно ДОБАВЛЯТЬ новый текст к посту. Можно ИСПРАВИТЬ старый...

Добавлено через 5 мин.
P.S. "Тобою решенная программа" даже не компилируется, не говоря уже о том, чтобы правильно работать (я Turbo Pascal-я не держу теперь, полностью перешел на FPC, так что извиняй, если в том динозавре и компилируется, то работать все одно правильно не будет, переменную цикла внутри цикла менять нельзя). Куда это повесить, каким шрифтом написать, чтоб вы уже начали обращать внимание???

[Lapp]

Игорь2, я настоятельно рекомендую не игнорировать сообщения модераторов и админов: Задача на массивы