Задача про одномерный массив

[klaster]

Прошу снова помочь мне.

Условие:
Дан одномерный массив числовых значений, насчитывающий N элементов. Вставить новый элемент С в массив на место с № К. Количество элементов при этом увеличится на единицу.

Работаю и сдаю в Free pascal.

Ранее мне помогли вот таким кодом, который при запуске выдает следующее:
- identifier not found n
- can't evaluate constant expression

var
a: array[1..n] of integer;
count: integer;
pos, c: integer;
i: integer;
begin
count := 10;
pos := 3;
c := 2;
for i := count + 1 downto pos+1 do
begin
a[i] := a[i-1];
end;
count := count+1;
a[pos] := c;
end.

Заранее спасибо!

[Hacker19_90]

допиши

const 
     n = 100;
var
a: array[1..n] of integer;
count: integer;
pos, c: integer;
i: integer;
begin
count := 10;
pos := 3; 
c := 2; 
for i := count + 1 downto pos+1 do
begin
a[i] := a[i-1];
end;
count := count+1;
a[pos] := c;
end.

[klaster]

Все равно выдает ошибку - "identifier" xpected, but "const" found.

Помогите пожалуйста, все, что я мог бы сделать сам, я попробовал - не собирает, или глюк некий, программа открывается и закрывается тотчас, при том создаются .exe и .o файлы, а нужно позарез сдать завтра.

Заранее спасибо.

[Hacker19_90]

program forum;
uses crt;
const
     n = 100;
var
a: array[1..n] of integer;
count: integer;
pos, c: integer;
i: integer;
begin
clrscr;
count := 3;
randomize;
for i:= 1 to count do begin
    a[i] := random(10);
end;
for i:= 1 to count do begin
    Write (a[i]:4);
end;
writeln;
pos := 3;
c := 2;
for i := count + 1 downto pos+1 do
begin
a[i] := a[i-1];
end;
count := count+1;
a[pos] := c;
for i:= 1 to count do begin
    Write (a[i]:4);
end;
writeln;
ReadKey;
end.

[klaster]

Программа работает, спасибо=)

Но нужно было другое, требуется сделать так, чтобы прога предлагала ввести N и C, а в предложенном коде это происходит рандомно.

Прикрепляю бс.

[klaster]

Тема все еще актуальна, сам не справляюсь, помогите, будьте добры. Если требуется, назовите цену.

[dosha]

а в чем проблема? поменять строчку на на readln(a[i]); и убрать рандом, что неможно?
плюс юзай дин масивы, а есль что моя ася в профиле