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

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.