程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
: F" Y, I# C/ C; O3 M        i,j,Rows,Lines:integer;
7 M$ ~5 U" k7 y0 ^3 }" T2 ?) U9 V        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
$ U& ^  P/ b8 K7 X6 |, V0 u                inspect messageBox("Number Wrong...,",50,13)
7 M2 T" R4 K) d# }. q* k                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
- U' s) W1 j% Z& A                        print "Cancel";
                end;
% f; s+ Q/ q9 V0 m7 d+ x2 ?        EventController.stop;
end;
& I, w# |9 O5 `0 gPartsTable.delete;
! E1 b; r; R6 q2 M! {/ tfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
% {: ^; s1 c- c  g1 l1 \                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
1 Y: S7 e* t" L& A/ A                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
2 T, C- F  f3 B) q8 M' U) c                                        EventController.stop;
                                end;
                        end;
2 y0 m$ t6 w. |8 f3 z6 A                end;
+ S  Q8 ^8 D6 J3 B6 j7 X2 b        next;
next;
( y# M6 j# P1 r  T! D
end;
- p% |: o: N0 E- |  p: }* _' z  H
    Lines :=0;
        for i:1 to Number_Of_Machine loop
6 I# _( b: c0 w0 `$ f! [8 @/ W$ `) r        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
7 N' y4 b/ S2 F        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
! {) K" i* a. y6 h( R  V- [                    if W_From_To_Chart[j,Rows]>0 then
. H# V$ f$ n: I1 j                            Lines :=Lines+1;
  h8 V' ^4 K% B; i$ w% A# g2 [. w                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
- H& H9 j# X! ]) j+ B                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
$ t: d# c9 \5 ?$ C                        PartsTable[6,Lines]:=j;
5 J; V* b) Y3 m) l9 N                end;
        next;
/ q3 I' |3 Y. A% p7 n0 W4 e' u+ M        MachineName :=sprint("M",Rows);
        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;
        Machine.ProcTime :=5;
% n+ a5 K: P4 v. A4 }( b2 f        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]);
( j' L4 a+ B2 j. ]  b5 D% c                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
+ u! V/ m1 n7 o: _        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
- |/ A' `2 K8 p' fend;
0 Y% g3 x+ W; o. o) r) d8 W( U, S

五五

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

wudi

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