program test;
uses crt;
var n,k,h,i,j:longint;
 a:array[1..100] of longint;
begin
 clrscr;
 write('Nhap so phan tu: '); readln(n);

 for i:= 1 to n do readln(a[i]);

 write('Nhap vao vi tri can chen: '); readln(k);
 write('Nhap vao so can chen: '); readln(h);

 for i:= n+1 downto k do
  a[i] := a[i-1];

 a[k] := h;

 for i:= 1 to n+1 do
  write(a[i]:5);

 readln;
end.

Code mẫu bạn tham khảo.

như bạn trên nói đó. mảng có nhiều giới hạn lắm. để chèn hoặc xóa bản chất là dịch chuyển các phần tử thôi bạn

Bạn để kích thước mảng tầm 101 (cái này bạn tự hiểu)

Khi nhập dữ liệu bạn chỉ cho vòng lặp chạy từ 1 -> 100

Trong chương trình, bạn bắt đầu dời các giá trị của mảng (ví dụ từ vị trí 100 <=> 101; 99 <=> 100,... ), tới vị trí n, rồi bạn gán giá trị vào vị trí n đó.