Паскаль. Вставить в массив элемент со сдвигом всех остальных элементов

[Yulya]

Помогите решить задачу на языке Pascal
Условие:нужно вставить в массив элемент со сдвигом всех остальных элементов.Сам элемент и номер куда его надо вставить указывается.

From Stilet: В следующий раз тему удалю за нарушение правил. Читай правила.

[ИльяМалиновский]

var
n: integer; // число эл-тов в массиве
k: integer; // номер вставляемого элемента
element: integer;
i: integer;
a: array of integer; // наш массив
begin
readln(element);
for i:= 1 to n do
 begin
 read(a[i]);
 end;
for i:= n downto k do
 begin
 a[i+1]:= a[i];
 end;
a[k]:= element;
end;