程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
1 Z2 ]; e9 \' H* n, sis
2 {0 o: r, o4 \0 u. U2 E* K        i,j,Rows,Lines:integer;
7 ~  s4 B6 L, r- [# a+ M4 j        MachineName,BufName:string;
/ n: s. U" ~; Z. a' a7 M$ Z3 c        Machine,Buf:object;
/ i) n2 `% N& g0 R/ ]6 @0 C& ]do
  H* ?4 `% m/ e' b, s3 E        if Number_Of_Machine/=D_From_To_Chart.YDim then
! j& j9 C; q1 w                inspect messageBox("Number Wrong...,",50,13)
% [1 R' F! k1 j# M                when 16 then
' I* n) V  h1 Z# i  n                        print "Yes";
% t" m5 @% F8 }; V  h* L0 k6 w                when 32 then
0 X+ Q, y; I: e1 a$ b                        print "No";
; _9 t9 F5 m: x' t                else
                        print "Cancel";
; F' O) y- K* P- ]3 |                end;
        EventController.stop;
end;
PartsTable.delete;
7 _8 f( q) W& }5 ofor i:=1 to Number_Of_Machine loop
0 J' o1 k5 Y; X) n0 f        for j:=1 to Number_Of_Machine loop
                if j<i then
- `& ]! r# l0 f! r- c                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
$ L$ ?" S; |; V                        end;
                else
                        if j=i then
, t- }6 S/ q; B( H                                D_From_To_Chart[j,i]:=0;
4 t# {, g% a/ u  F5 B! z+ _; I5 o                        else
+ g$ }0 I; g( G0 W! u                                if D_From_To_Chart[j,i]<=0 then
/ W) E; L/ D* U  S( _                                        messageBox("distence<=0...,",50,13);
3 @* a* L! h4 g' J                                        EventController.stop;
                                end;
                        end;
                end;
        next;
next;
9 }# d. V5 e* b8 ~5 ~- |4 A% \
end;
- F5 K3 M, I8 i9 n( }, z
    Lines :=0;
0 `6 V2 y" V- h6 O  i        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
  G$ y" F+ S% @7 I                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
' K+ b, y, Z) y                        PartsTable[6,Lines]:=j;
                end;
4 }9 n  a% \% l) Y; l  A/ h2 n        next;
1 E! e. A9 d! }! Y        MachineName :=sprint("M",Rows);
) I; u, R. k. q0 n$ D7 S        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;
9 S" d1 b( t* A6 H' {" _/ M9 t        Machine.ProcTime :=5;
& Z, z* p# W) k7 |$ u# _  m5 E3 a+ r        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
3 o! e, I/ \, w       
        BufName :=sprint("BF",Rows);
5 S: H6 M) ?$ n3 Z. w( L( {, _& Y        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]);
7 U5 q/ ]3 i% c; K3 o. O- p. v                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
/ c8 f4 t& L. u  K* c6 K3 B        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
) q+ M& U2 u( q: O, aend;

五五

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

wudi

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