程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
% s8 u' d2 e3 t, N: j; _, Q        MachineName,BufName:string;
        Machine,Buf:object;
0 P- z4 N  D( c( X) M% ddo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
  V* H8 J5 n( u- N  J9 B2 L3 z1 w                when 16 then
) T8 {) z- y* C                        print "Yes";
% t- `; j9 ^+ u$ D+ e8 |% |8 K                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
, V2 Q: s- ^# ^8 K' e8 ^# o$ T        EventController.stop;
( Y1 g: i% b3 K' Eend;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
& N' g7 F) g* V4 u: M6 ?3 C                        if D_From_To_Chart[j,i]<=0 then
; O" E; g* B) x+ P$ K4 N6 p. D' q                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
( a# Z0 Y8 g: c- q, F' y, a                else
  [7 r8 P. y6 g                        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);
4 p3 n5 n! |& C  @) {                                        EventController.stop;
" }5 V9 g- y' {" e. a% B                                end;
                        end;
( [7 ^0 L0 G/ u" a                end;
# w9 B& O+ s% X- R        next;
8 p' C$ F7 V- U. j$ y! G5 vnext;

end;
; ]# W- S# t2 b9 m8 `/ _
3 V3 S1 s: x* y$ a6 q    Lines :=0;
) R  r' r, n  ~( K. L        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
0 v1 R0 _) C% {; s        MachineSequence[2,i]:=Rows;
0 Y: t  Y/ d" U, n# W4 o+ C0 ^1 B            for j:1 to Number_Of_Machine loop
/ ]1 {0 k# @; w! y9 T, [7 i                    if W_From_To_Chart[j,Rows]>0 then
2 F( z  I8 `  k  b+ @                            Lines :=Lines+1;
- g+ n9 V/ s  N! e                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
& n' x: T# C$ Y# z                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
& b% _: r) C: O1 Z8 [! _                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
! _4 i* m! b) t( O                        PartsTable[6,Lines]:=j;
                end;
        next;
) M. p. ~; p3 q% r7 G        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]);
* t5 Z4 s9 p. |* v        Machine.Name :=MachineName;
$ ]$ h1 ?# A1 g! P  S7 s4 Z9 P        Machine.ProcTime :=5;
9 E4 c  h* |4 ?! u        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
$ t% @) _5 _/ Z4 [, F3 ]. D       
3 c" e: }% F6 v2 i/ d5 [        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;
. V0 W: ]$ E9 K* _. Q7 I6 M& D        Buf.ProcTime :=0;
2 l" [- v: \/ b% X7 s8 Z        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
* N, P$ p# }* `: G3 C

五五

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

wudi

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