Дан одномерный массив. Воткнуть в него элемен L в позицию K.

program cefei_gugolpleks;
uses crt;const n=random(100);
var a: array[1..n] of integer;
k, l, i: integer;
begin
clrscr;
writeln(Введите ,n, эл. массива);
for i:=1 to n do
begin
readln(a[i]);
end;
write(Введите какой элемент надобно воткнуть );
readln(l);
write(Введите позицию, куда надо вставить );
readln(k);
a[k]:=l;
For i:=1 to n do
begin
writeln(a[i]);
end;
readln;
end.