Pascal编程数塔问题通常使用动态规划（Dynamic Programming, DP）来解决。动态规划是一种通过把原问题分解为相对简单的子问题的方式来求解复杂问题的方法。在数塔问题中，我们可以定义一个二维数组`dp`，其中`dp[i][j]`表示从数塔顶部到达第`i`行第`j`列的最大路径和。
初始化：
创建一个二维数组`dp`，其大小与数塔的尺寸相匹配。`dp`初始化为数塔顶部的值。
状态转移：
对于数塔的每一层（除了顶部），计算到达该层每个位置的最大路径和。这可以通过比较到达其左侧和右侧位置的最大路径和，并加上当前位置的值来实现。具体来说，对于第`i`行的第`j`个位置，我们有：
```pascal
dp[i][j] = max（dp[i-1][j-1] + a[i][j], dp[i-1][j] + a[i][j]）
```
其中`a[i][j]`是数塔中第`i`行第`j`列的值。
结果：
在计算完所有层的`dp`值后，`dp[n-1][j]`（其中`n`是数塔的层数）中的最大值就是我们要找的最大路径和。
下面是一个简单的Pascal代码示例，用于解决数塔问题：
```pascal
program NumberTower；
var
n: integer；
a: array[0..50, 0..50] of integer；
dp: array[0..50, 0..50] of integer；
i, j: integer；
maxSum: integer；
begin
readln（n）；
for i := 0 to n-1 do
for j := 0 to i do
read（a[i][j]）；
// 初始化dp数组
dp := a；
// 动态规划填表
for i := 1 to n-1 do
for j := 0 to i do
begin
if j = 0 then
dp[i][j] := dp[i-1][j] + a[i][j]
else if j = i then
dp[i][j] := dp[i-1][j-1] + a[i][j]
else
dp[i][j] := max（dp[i-1][j-1] + a[i][j], dp[i-1][j] + a[i][j]）；
end；
// 找出最大路径和
maxSum := dp[n-1]；
for j := 1 to n-1 do
if dp[n-1][j] > maxSum then
maxSum := dp[n-1][j]；
writeln（maxSum）；
end.
```
在这个代码中，我们首先读取数塔的层数`n`和每一层的值，然后初始化`dp`数组，并使用动态规划的方法填充`dp`数组。最后，我们遍历`dp`数组的最后一行，找出最大的路径和并输出。
请注意，这个代码示例假设数塔的层数和每一层的值都是非负整数，并且数塔的每一层都有相同数量的列。如果数塔的层数或每一层的列数不同，或者包含负数，那么代码需要相应地进行调整。