程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
! B; O  s4 e2 u' M2 g        i,j,Rows,Lines:integer;
6 Y& ?; q, u. H/ u        MachineName,BufName:string;
        Machine,Buf:object;
4 D6 v2 P9 v; }2 y. {0 Pdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
; o( V) l4 x) U                when 32 then
                        print "No";
                else
2 B- d! Q9 e+ U7 s4 Z  f                        print "Cancel";
( e* r7 M) Q9 R/ [' c                end;
. K' n* e4 [% P- a8 i, I* ?' B* A        EventController.stop;
& D. v& b7 u" r/ J6 a+ y" [+ ^end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
. ]1 d, u2 J8 |$ [        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
$ t6 o1 n* D) o# o+ f3 x                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
; A# H6 c( E0 d: n                        end;
- F1 P# H1 F+ O+ ^                else
                        if j=i then
' C2 h; L/ p4 E* ?                                D_From_To_Chart[j,i]:=0;
. V  S" D4 p% u. y                        else
                                if D_From_To_Chart[j,i]<=0 then
4 O( h, S( ?" A                                        messageBox("distence<=0...,",50,13);
, m( u) p/ n# h7 m! _                                        EventController.stop;
                                end;
  B9 c8 @2 B, k) ?2 Q, ~; G                        end;
# \/ G7 A0 K7 n% z$ n                end;
        next;
next;

; Q  d% F% S3 w! uend;

    Lines :=0;
# n& {0 N- C+ H, u7 d* x        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
, x& T6 S4 G7 _        MachineSequence[2,i]:=Rows;
5 f) U& }8 p; V: }' j- L+ p            for j:1 to Number_Of_Machine loop
& |% l$ U) Q4 Z. R  L/ S) }7 L                    if W_From_To_Chart[j,Rows]>0 then
8 o  \& B! `4 r& n; f                            Lines :=Lines+1;
! @' p2 X5 Q- ~1 r                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
- [9 @$ W4 a0 Y                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
. n6 o2 U" R2 L9 F3 a4 X                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
5 i) V; N7 x8 Z) [# b8 K                        PartsTable[6,Lines]:=j;
, Y* @7 Z6 f% }8 C                end;
$ u+ K4 O) l' ^% H4 `; \        next;
        MachineName :=sprint("M",Rows);
( s2 Z* p/ U- `( R5 O# t        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;
/ G5 Z# \4 X7 ?, Z4 l        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
* E; ^8 o8 P- @$ h/ E, O! V        BufName :=sprint("BF",Rows);
, C8 q+ ~, K: N, i1 H) g        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]);
6 x1 v% v/ g% k1 Q! l                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
* q+ s1 s  K, Z$ e        .MaterialFlow.Connector.connect(Buf,Machine);
' H' k8 W2 @) S8 a% ^, ^* Vnext;
7 T6 _+ i/ R, i7 ^. Xend;
) H/ k- x9 Z2 O; Q5 Y

五五

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

wudi

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