程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
8 G  e9 z# k6 m) U2 O, N        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
6 c+ j* H2 E4 K' k& \5 {: f9 [        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
7 x# H- r& ]$ O+ D% b3 i                when 16 then
6 F/ @3 W2 `$ G& e2 d                        print "Yes";
                when 32 then
1 b6 n& d. A+ e, e% W. {: r3 i# G                        print "No";
                else
" ?) [4 s0 |0 m: \                        print "Cancel";
% L) y, |+ }7 c8 G1 R                end;
' |9 W  D4 a& P9 u5 Y  K4 v# X        EventController.stop;
end;
/ I, [2 Q0 J0 c7 P' uPartsTable.delete;
for i:=1 to Number_Of_Machine loop
; B! o' L2 L: o4 j7 Z  k" p6 x8 m        for j:=1 to Number_Of_Machine loop
- [* V' R2 x/ H4 r- P                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
' k- S  e# ]; f$ l( B' \                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
' M/ P0 ~$ I+ ?                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
3 k8 d& B! K5 S0 w5 @                        else
4 b7 V- A# `/ b4 o# @0 e% o                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
) F* p0 A7 }% Y$ o8 H0 O                                end;
                        end;
$ m4 Y. K; ^3 a" r- z+ G                end;
        next;
next;
7 w/ t$ b4 G6 A1 }3 ?) z
8 q( l  F) I9 H+ \* W9 R0 ]. J( Z! v3 Qend;

% o7 j# J* ?8 u, n% o' }. u    Lines :=0;
& ^( z: q5 n+ j) ~        for i:1 to Number_Of_Machine loop
; }' ^% W7 W* v7 [" D& D/ X9 J        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
. W  H" I3 M, P' r" Q% ~' @* s        MachineSequence[2,i]:=Rows;
* d- A. ^9 D, t8 e# G. z' |/ F+ s            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
" r/ C( s" X& f: J                            Lines :=Lines+1;
. o4 p& d2 _0 ~, L7 N                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
7 ^8 q! ?: `3 R4 _0 X                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
. `) h8 a' U6 T  S5 K! T                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
8 }2 g3 {4 k8 |( F                        PartsTable[6,Lines]:=j;
                end;
        next;
        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]);
: b8 `1 T1 V; i( V0 h( ^        Machine.Name :=MachineName;
0 _$ r$ V* s" y        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
8 d7 P! I' K  e       
        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;
5 Z* \/ s$ X4 b" ^4 O' B' ^        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
: n% @: G- X, K, k

五五

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

wudi

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