Одномерный массив. Вставка элемента.

[Stwl3]

Все банально,а разобраться не могу.
Вставить элемент m после элемента k в одномерном массиве в N элементов. Используйте пожалуйста только цикл for
Заранее благодарен.

[andrewpalkin]

Наработки покажи , мы поможем

[Stwl3]

const
n=5;
var
A: array[1..n] of integer;
i,j,m,k: integer;
begin
for i:=1 to n do readln(a[i]);
writeln('‚ўҐ¤ЁвҐ н«Ґ¬Ґ*в, Є®в®ал© **¤® ўбв*ўЁвм');
readln(m);
writeln('‚ўҐ¤ЁвҐ k');
readln(k);
for i:=1 to m do
begin
for j:=n downto k do a[j+1]:=a[j];
readln(a[k]);
end;
for i:=1 to n do writeln(a[i],'');
readln;
end.

[andrewpalkin]

Попробуй вот это , если я правильно понял условие задачи :

const
  n=5;
var
  A: array[1..n] of integer;
  i,m,k: integer;
  el_m,el_k : integer;
begin
  for i:=1 to n do 
    readln(a[i]);
  
  write('Enter number m = ');
  readln(m);
  write('Enter number k = ');
  readln(k);
  
  el_m := a[m] ; el_k := a[k];
  if(m < k) then
  begin
   for i:=m to k-1 do
    a[i]:=a[i+1];
   a[k]:=el_m;
  end;
  
  if(m > k) then
  begin
    for i:=m downto k+1 do
      a[i]:=a[i-1];
     a[k+1]:=el_m;
  end;
  
    
  for i:=1 to n do write(a[i],' ');
  
  readln;
end.