一个简单的E语言函数据转为DELPHI函数

Question

.版本 2.子程序 取登录号码, 整数型
.参数 文件路径, 文本型
.参数 号码数组, 长整数型, 参考 数组
.局部变量 字节集, 字节集, , "0"
.局部变量 计次, 整数型
.局部变量 号码, 字节集字节集 ＝ 分割字节集 (读入文件 (文件路径), { 81, 68 }, ).计次循环首 (取数组成员数 (字节集), 计次)
    .如果真 (取字节集长度 (字节集 [计次]) ＞ 51)
        号码 ＝ 取字节集中间 (字节集 [计次], 50, 4)
        加入成员 (号码数组, 转换为号码 (号码))    .如果真结束.计次循环尾 ()
返回 (取数组成员数 (号码数组))