程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
' q# \2 t  T' r! G        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
1 ]* B- q; u+ G9 n, h: E. f        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
( f* t: @; \8 d7 I4 z7 ^0 `9 }' S, G                when 16 then
- ^4 ^+ Q0 `; M7 L* M                        print "Yes";
- ]' U, p& Q+ ~- Y                when 32 then
                        print "No";
; V1 i# Y9 V7 h. \$ O                else
                        print "Cancel";
                end;
5 x/ N1 K. S: g# ?! A8 K  @        EventController.stop;
end;
/ `) N+ B& G. i, l$ |8 f8 rPartsTable.delete;
6 _; b% @" \- l; ]/ rfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
1 n" B" \, W) T/ e3 \) k. z                        if D_From_To_Chart[j,i]<=0 then
) I7 D9 X, W8 X3 z# O                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
; {1 |7 d$ i6 x4 M& u                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
. C# m" O/ q) i5 g- D' x9 N% ^2 Q: z                                if D_From_To_Chart[j,i]<=0 then
3 {# v& }/ F6 d$ X' c* U                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
1 W& [" T# i3 ~- @0 l$ f                end;
        next;
, j7 h: p# i3 knext;
9 q$ i: h! `; [; S- g
end;
: P2 c) N1 p: ~, G1 x8 O7 r
    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
1 |; i* u. s: B- K* y# B/ Q3 ~: u: U            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
8 `- K& h1 J' s& {                            Lines :=Lines+1;
$ b9 c, r5 `6 k/ E) ~5 Z  u$ r                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
$ ^% M+ ^1 j$ J& D                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
& |- W9 G- N% i% d+ i                        PartsTable[3,Lines]:=sprint("Parts");
) U8 e/ r! s6 z                        PartsTable[5,Lines]:=Rows;
& G& L; F8 \# S3 s7 s& z                        PartsTable[6,Lines]:=j;
                end;
$ }5 J1 d2 N& W        next;
        MachineName :=sprint("M",Rows);
3 K& G8 T) H  O) a7 f        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;
) y% j2 E# p" U1 _" r        Machine.ProcTime :=5;
% ]7 M& I+ |, u        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        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]);
; l* C8 B/ Y3 o' r2 y4 g                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
7 V6 Y5 U$ U. b* O+ v8 [- x

五五

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

wudi

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