Вставка элемента в массив

[Yulya]

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

[Пaвeл]

var i,n,k,m:longint;
    a:array [1..101] of longint;
begin
  readln(n);      {читаем длинну массива}
  for i:=1 to n do       {и сам массив}
    read(a[i]);
  readln(k);  {читаем место, куда нужно вставить элемент}
  readln(m); {читаем элемент}
  for i:=n+1 downto k+1 do {сдвигаем элементы с N до K вправо}
    a[i]:=a[i-1];                   {на одну позицию}
  a[k]:=m; {записываем новое число в A[k]}
  for i:=1 to n+1 do
    write(a[i],' ');
  readln;
end.

Массив сдвигается вправо, следовательно его длинну надо увеличить на 1.
var a:array [1..nmax+1] of <тип>;

[Yulya]

А как еще можно.....мне нужно три разных способа....