程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
: M1 w% ~: r& i, N" c/ q        MachineName,BufName:string;
        Machine,Buf:object;
3 q; }; q$ s& ?# [8 a, L( F  ]9 Ado
, A1 a$ [" d5 o9 }5 ]& r        if Number_Of_Machine/=D_From_To_Chart.YDim then
% D' Q7 P$ v2 s6 H2 F5 }8 k: [6 g9 \                inspect messageBox("Number Wrong...,",50,13)
! n2 B0 t: _/ s% ^) J# Z                when 16 then
% H3 s1 F% l5 [. ]                        print "Yes";
3 s2 I" z! ~& r3 H; A                when 32 then
                        print "No";
2 m2 `8 r+ P, ~% V* F7 b2 w                else
                        print "Cancel";
, E+ {& G% m* X/ a. x                end;
        EventController.stop;
0 Q6 p5 `% {$ i6 E) @, i% ]. Tend;
. Z3 \3 |1 {4 ePartsTable.delete;
for i:=1 to Number_Of_Machine loop
; U: E- ?; n5 U  Q0 J0 v        for j:=1 to Number_Of_Machine loop
  W; x4 I0 V% G                if j<i then
3 H8 Z+ E& s9 J( f+ N                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
' R$ S3 i( ~- U' L7 [6 X                else
  C6 }! }, P7 p  j5 ?9 W. ~; b* T" B                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
" J; k8 ~: S; W7 |                                if D_From_To_Chart[j,i]<=0 then
# e* A: j# R$ g- V2 j) r9 n                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
' h+ [6 A% O4 V- z+ L9 S                                end;
                        end;
                end;
        next;
3 L5 ?; m9 l3 d% nnext;

8 {* X, a9 r6 W  j: O3 U6 W5 s( cend;
6 M* }: R+ g4 ^7 ~. w
    Lines :=0;
        for i:1 to Number_Of_Machine loop
: U# v( m9 n& a# X        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
' K# R4 I! x( ]3 F1 y/ R            for j:1 to Number_Of_Machine loop
9 n3 A1 C& ?% m& E* \( n  G                    if W_From_To_Chart[j,Rows]>0 then
  r# E; h+ D1 k% C/ t                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
7 J7 [" N& C: z+ J% r                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
' B9 b" J9 o5 U5 o" b                        PartsTable[6,Lines]:=j;
) a3 G0 \* t) V1 \' P                end;
5 E$ m! t; T& V: O" T% _- R' c        next;
) Z6 O! k& @7 V        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]);
: D- P: y0 }# P! C. @. T        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
2 P' U- `: ^4 |  `  g9 G/ d1 C        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
3 B, l  U$ P+ F- c' C        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;
/ `! x/ {* ^! Z9 Q- X# m        Buf.ProcTime :=0;
& w  S: Q. _" \        .MaterialFlow.Connector.connect(Buf,Machine);
4 `3 V8 j- H+ \# T/ ^next;
4 A& n5 }+ x" }/ n9 [; Q$ uend;

五五

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

wudi

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