Dưới đây là một ví dụ về cách chèn một số bất kỳ vào vị trí của một mảng trong Pascal:

```pascal
program InsertNumberIntoArray;

const
MAX_SIZE = 100;

type
IntArray = array[1..MAX_SIZE] of Integer;

var
arr: IntArray;
n, pos, num: Integer;

procedure InsertNumber(var arr: IntArray; var n: Integer; pos, num: Integer);
var
i: Integer;
begin
// Kiểm tra vị trí chèn có hợp lệ hay không
if (pos < 1) or (pos > n + 1) then
begin
writeln('Vị trí chèn không hợp lệ.');
exit;
end;

// Dịch chuyển các phần tử phía sau vị trí chèn sang phải
for i := n downto pos do
arr[i + 1] := arr[i];

// Chèn số vào vị trí đã cho
arr[pos] := num;

// Tăng số lượng phần tử của mảng lên 1
n := n + 1;
end;

procedure PrintArray(arr: IntArray; n: Integer);
var
i: Integer;
begin
writeln('Mảng sau khi chèn số:');
for i := 1 to n do
write(arr[i], ' ');
writeln;
end;

begin
// Nhập số lượng phần tử của mảng
writeln('Nhập số lượng phần tử của mảng:');
readln(n);

// Nhập các phần tử của mảng
writeln('Nhập các phần tử của mảng:');
for i := 1 to n do
readln(arr[i]);

// Nhập vị trí chèn và số cần chèn
writeln('Nhập vị trí chèn:');
readln(pos);
writeln('Nhập số cần chèn:');
readln(num);

// Chèn số vào vị trí của mảng
InsertNumber(arr, n, pos, num);

// In mảng sau khi chèn số
PrintArray(arr, n);
end.
```

Trong ví dụ trên, chúng ta sử dụng một hàm `InsertNumber` để chèn số vào vị trí của mảng. Hàm này kiểm tra xem vị trí chèn có hợp lệ hay không, sau đó dịch chuyển các phần tử phía sau vị trí chèn sang phải và chèn số vào vị trí đã cho. Cuối cùng, chúng ta sử dụng hàm `PrintArray` để in ra mảng sau khi chèn số.