Loops Pascal中循环的专用

我使用一个通用的软件来模拟发电厂的过程。为了实现自动化，可以在软件中编写较小的脚本，这些脚本基于Pascal和自己的函数库。只是在20年前首次发布后保留。 我的简单脚本将值从一个元素传输到另一个元素，并具有以下结构：

var f: integer;

S13Be.MXTSTO.data(1,1) := 22;
S12Be.MXTSTO.data(1,S12Be.NFLOW) := 22;
S11Be.MXTSTO.data(1,1) := S12Be.MXTSTO.data(1,S12Be.NFLOW);
S10Be.MXTSTO.data(1,S10Be.NFLOW) := 22;
S9Be.MXTSTO.data(1,1) := S10Be.MXTSTO.data(1,S10Be.NFLOW);
S8Be.MXTSTO.data(1,S8Be.NFLOW) := 22;
S7Be.MXTSTO.data(1,1) := S8Be.MXTSTO.data(1,S8Be.NFLOW);    
S5Be.MXTSTO.data(1,S5Be.NFLOW) := 22;   
S4Be.MXTSTO.data(1,1) := S5Be.MXTSTO.data(1,S4Be.NFLOW);
S2Be.MXTSTO.data(1,S2Be.NFLOW) := 22;
S1Be.MXTSTO.data(1,1) := S2Be.MXTSTO.data(1,S4Be.NFLOW);

for f := 1 to S13Be.NFLOW+1 do begin
  S13Be.MXTSTO.data(1,f) := S13Be.MXTSTO.data(1,1);
end;
for f := 1 to S12Be.NFLOW+1 do begin
  S12Be.MXTSTO.data(1,f) := S12Be.MXTSTO.data(1,1);
end;
for f := 1 to S11Be.NFLOW+1 do begin
  S11Be.MXTSTO.data(1,f) := S11Be.MXTSTO.data(1,1);
end;

。 .

我想在外部放置另一个循环，以便自动选择元素。 元素的名称为S1Be、S2Be。。。。S13Be和S1Ent、S2Ent、S3Ent…S13Ent .MXSTO.data访问相应元素中的矩阵 （1，f）定义了矩阵中的位置（目前只有1x5和1x10矩阵；值.NFLOW指定了所涉及的矩阵。）

如果能给我一个提示，一本书的推荐，当然还有一个代码，我将不胜感激

致以最良好的问候

费利克斯

---

翻译为（免费版）

名称在编译程序中通常没有意义，它不包含它们

---

如果标识符是同一类型的，您可以定义指向它们的指针数组，然后使用该数组进行迭代。

这在Pascal中通常是不可能的，但如果您的Pascal处理器是解释器而不是编译器，理论上是允许的，并且具有与PowerShell

调用表达式

或APL的

⍎这是我使用的软件的帮助。也许它能帮助理解和解决我的问题。对不起，我不知道那个。看看它是否支持指针。
for f := 1 to S2Be.NFLOW+1 do begin
  S2Be.MXTSTO.data(1,f) := S2Be.MXTSTO.data(1,1);
end;
for f := 1 to S1Be.NFLOW+1 do begin
  S1Be.MXTSTO.data(1,f) := S1Be.MXTSTO.data(1,1);
end;