程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
; i3 v2 ?- M, X) z7 I8 A! t        MachineName,BufName:string;
        Machine,Buf:object;
5 n. v7 v: P  L% I5 b0 h/ q- Udo
$ }; D* o, v' L: ~        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
+ s) x1 ]4 R0 a$ f* ^0 Y                        print "Yes";
                when 32 then
3 [" _; c) t  f* k4 z" o7 ?  H7 ]                        print "No";
3 H$ D' E, L! i4 r; q9 E                else
' H/ S" e5 h7 E3 h& `" f                        print "Cancel";
                end;
        EventController.stop;
end;
! L9 d; E" V- V1 t) J  Q) gPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
/ J3 I, p. v) }* H$ |8 I% v% }( d                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
9 F4 v) J7 G, f* E1 v                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
! t' q0 g* Q0 H                        end;
                else
8 j7 E4 V. j9 _/ F                        if j=i then
# C' |1 C! K2 s+ C                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
7 D4 }! f$ i) }: Q0 r- O& B5 o                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
# e1 P5 r1 Y) l, D  {                                end;
                        end;
                end;
" M% j9 s6 G* {/ w! u        next;
, R" _9 z( L+ L; x6 M" vnext;
) Q: j; Q' C5 x
% b. y4 [  p* Tend;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
$ ^3 g% O$ u: P9 V. P: m! \- n- @        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
: n% h" ~& {! e/ ^  G3 t( L        MachineSequence[2,i]:=Rows;
, z# f1 t' n+ J% S3 b            for j:1 to Number_Of_Machine loop
2 R$ V% ]9 {5 j4 J                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
, l/ k7 H1 I$ C  C' K0 z                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
- W& q) \6 x' y: i( H( l                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
) |3 a+ ]3 ~5 L$ X                        PartsTable[3,Lines]:=sprint("Parts");
3 n7 w: P+ C9 E                        PartsTable[5,Lines]:=Rows;
0 M3 K/ O, p: `& f% }" V* q: ?                        PartsTable[6,Lines]:=j;
                end;
9 S' x  O! q" K        next;
( Y$ k9 W- l7 m% ]% Z6 P. z1 i# s- B& `        MachineName :=sprint("M",Rows);
0 p9 E6 v1 S/ C, Z- x        Machine:=.MaterialFlow.SingleProc.createObject(current,X_pos_init+D_From_To_Chart[Number_Of_Machine+1,i],Y_pos_init+D_From_To_Chart[Number_Of_Machine+2,i]);
        Machine.Name :=MachineName;
. Y+ V0 g% c7 u5 |$ Q, l        Machine.ProcTime :=5;
# O& P6 y/ T( c' A; I9 e$ E        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
        Buf:=.MaterialFlow.Buffer.createObject(current,X_pos_init+D_From_To_Chart[Number_Of_Machine+1,i]-35,Y_pos_init+D_From_To_Chart[Number_Of_Machine+2,i]);
                Buf.Name :=BufName;
# |$ C7 p4 E# j% K, \) p        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
% N+ i& f8 J; H, U. nnext;
end;

五五

end 数量不对 且后面两个for循环 赋值没有等号。。。

wudi

老师，我再问一下，哪里的end数量不对啊，我是新手