Dưới đây là chương trình Pascal để nhập dãy số nguyên và thực hiện việc sắp xếp tăng dần và chèn số vào vị trí cần chèn:

```pascal
program InsertionSort;

const
MAX = 100;

var
arr: array[1..MAX] of Integer;
n, i, j, insertPos, insertNum: Integer;

procedure InsertionSort(var arr: array of Integer; n: Integer);
var
i, j, temp: Integer;
begin
for i := 2 to n do
begin
temp := arr[i];
j := i - 1;
while (j > 0) and (arr[j] > temp) do
begin
arr[j + 1] := arr[j];
j := j - 1;
end;
arr[j + 1] := temp;
end;
end;

procedure PrintArray(arr: array of Integer; n: Integer);
var
i: Integer;
begin
for i := 1 to n do
Write(arr[i], ' ');
Writeln;
end;

begin
Write('Nhap so phan tu cua day: ');
Readln(n);

Write('Nhap day so nguyen: ');
for i := 1 to n do
Read(arr[i]);

InsertionSort(arr, n);

Writeln('Day so sau khi sap xep tang dan:');
PrintArray(arr, n);

Write('Nhap vi tri can chen: ');
Readln(insertPos);

Write('Nhap so can them: ');
Readln(insertNum);

for i := n downto insertPos + 1 do
arr[i] := arr[i - 1];

arr[insertPos] := insertNum;
n := n + 1;

Writeln('Day so sau khi chen:');
PrintArray(arr, n);
end.
```

Chương trình trên sử dụng thuật toán sắp xếp chèn để sắp xếp dãy số nguyên theo thứ tự tăng dần. Sau đó, nó cho phép người dùng nhập vị trí cần chèn và số cần thêm vào. Chương trình sẽ chèn số đó vào vị trí cần chèn và in ra dãy số sau khi chèn.