程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
; |  `8 I4 u5 z+ g/ V        MachineName,BufName:string;
8 w* c% q1 f+ u3 j. \        Machine,Buf:object;
' Z9 |. n$ Z! a0 sdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
6 g1 n4 d0 S! N. x3 z/ ^- @, }4 m' q                        print "Yes";
                when 32 then
0 T1 w2 Z, T. Q' C( D  M                        print "No";
                else
" N; \8 a, E  x3 |7 j- |                        print "Cancel";
                end;
        EventController.stop;
" k" x3 L/ M$ W9 wend;
$ n/ n1 M) z& W$ JPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
7 i9 B2 b7 M7 G2 g/ X7 b0 k( s  E) Z                if j<i then
& T. L/ A' b3 O* j% |" |+ o* Q% E" r                        if D_From_To_Chart[j,i]<=0 then
5 F  R" f. D+ ]# }$ U                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
" ]# r9 q0 C5 h$ [5 r                        end;
                else
1 O5 `: w1 q9 t1 ?* ~" u" f                        if j=i then
                                D_From_To_Chart[j,i]:=0;
3 x8 W$ a8 `0 P                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
. r$ i) X% u8 `9 H# S; |* `# G                                        EventController.stop;
                                end;
+ Y. X) c2 U, L, ?' u8 K: {                        end;
# [) G7 L8 \4 ~* O1 S5 {                end;
        next;
$ E# N" r2 w& \. @7 R) \* [$ G+ N: b; Xnext;

' b' l6 i6 f/ J: V& Mend;

2 g9 x9 ~" k$ s; D    Lines :=0;
        for i:1 to Number_Of_Machine loop
( T3 a# k" m2 h- h1 ^- i        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
3 ~. d) O. \. p            for j:1 to Number_Of_Machine loop
6 W( z8 @: }6 b6 p. I                    if W_From_To_Chart[j,Rows]>0 then
/ t% @5 M8 `. H                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
0 x4 D) e# Y1 L, N% V( [: p9 N                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
4 ]% W: X* [/ K# v# v- u* i$ X        next;
2 J* z0 z8 W) c        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;
8 @& ^$ d1 z* P% ^% B2 O5 S5 g. T        Machine.ProcTime :=5;
7 k% T# o; y1 Z( I9 K2 v        Machine.label :=sprint("machine_",Rows);
. |* w, w  r) A- s        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;
        Buf.Capacity :=5000;
1 {$ a! a7 `. F- _& d        Buf.ProcTime :=0;
$ l: Z" {% ]/ v! ~2 e        .MaterialFlow.Connector.connect(Buf,Machine);
next;
  u" p' m4 r- }end;
9 D0 f( L5 ]% m2 x2 W

五五

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

wudi

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