Вставка и удаление элементов одномерного массива

Удаление k-го элемента одномерного массива:

var a:array[1..100]of real;  x:real;

i,j,k,l,m,n:integer;

begin

writeln(‘введи n’);

read(n);

randomize;

for i:=1 to n do begin

a[i]:=random(100);write(a[i]:5:1);end;

writeln;

writeln('введи номер позиции k');

read(k);

for i:=k to n-1 do

a[i]:=a[i+1];

n:=n-1;

for i:=1 to n do

write(a[i]:5:1);

writeln;

end.

Вставка нового элемента в k-ую позицию одномерного массива:

var a:array[1..100]of real;  x:real;

i,j,k,l,m,n:integer;

begin

writeln(‘введи n’);

read(n);

writeln('введи новый элемент x');

read(x);

randomize;

for i:=1 to n do begin

a[i]:=random(100);write(a[i]:5:1);end;

writeln;

writeln('введи номер позиции k');

read(k);

for i:=n downto k do

a[i+1]:=a[i];

a[k]:=x;

n:=n+1;

for i:=1 to n do

write(a[i]:5:1);

writeln;

end.