помогите дописать 2\3 проги, или хоть подскажите

[Euforia_PZAS09_1]

добавить переменную Z в k-тую позицию массива X состоящего из N элементов.
получается только вывести массив((((

program project;
var
x:array [1..100] of real;
n,i,k,z:integer;
begin
readln(n);
begin
for i:=1 to n do
begin
x[i]:=random(n);
writeln(x[i]:3:0);
.................................

[ОДИНОЧЕСТВО В СЕТИ]

добавить переменную Z в k-тую позицию массива X состоящего из N элементов.

readln(k);
readln(z);
n:=n+1;
for i:= n downto k+1
x[i]:=x[i-1];
x[k]:=z;
for i:=1 to n do
Write(x[i]:6:3);
readln;
end.

[Euforia_PZAS09_1]

ага.вот где @ зарыта...
благодарю)))