程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
1 {2 g) r# N- ^+ y        i,j,Rows,Lines:integer;
6 D; {$ j, N: P! j: Y        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
8 l4 p; Y% A' w                        print "No";
                else
/ \) B, ]/ u3 O3 E                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
: J" S% q5 e/ n* a/ ]5 o* e2 [for i:=1 to Number_Of_Machine loop
0 x, `: R; D$ a  y) I        for j:=1 to Number_Of_Machine loop
7 G' a+ w5 [4 {                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
3 L- X9 e* A. ^' m7 a  w5 ]8 E                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
4 h2 n& w$ B. o* H# _                        end;
! h  A2 C2 K6 S7 V                else
! S7 ?3 E/ c- h4 b                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
. f1 @- Z# y& n: J                                if D_From_To_Chart[j,i]<=0 then
  Y, [, e, k! l+ m                                        messageBox("distence<=0...,",50,13);
4 J( f6 A/ @& ?+ b6 T( X                                        EventController.stop;
: T6 U  H; [$ E" A4 S3 T                                end;
. o+ m% J+ V1 }& k) ?0 G                        end;
& R3 U- v* y1 g" j, ]+ O8 b0 N1 @                end;
        next;
next;

end;

. [4 x% f$ t* G# F$ V/ w    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
0 o6 [0 ~  _/ x3 i5 G4 `, f( \        MachineSequence[2,i]:=Rows;
0 q8 c' `* J* [) V7 W5 r/ v            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
, I0 [. V, h+ P; j* k/ N$ L                            Lines :=Lines+1;
& K! k& V, A* `! ]% R                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
+ J! w( d9 t* v                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
8 R  p" s/ L/ ~9 c. F5 @: n                        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]);
" s& p9 q2 @. U7 l5 Z' X        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
: M# V4 U  Y7 D! a" h+ R        Machine.label :=sprint("machine_",Rows);
- {8 X9 N# O' H% P/ @$ F1 m1 D        Machine.ExitCtrl :=ref(Leave);
       
7 R) w' C+ h' y+ a* ^6 }  r7 k" j        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;
        Buf.ProcTime :=0;
- |4 ^5 d2 S9 q8 c, m        .MaterialFlow.Connector.connect(Buf,Machine);
  R9 S" M8 k- s# S8 Hnext;
1 `3 b1 A, E0 T  _/ D* \. x# Kend;
4 k2 J' c* S: w1 R8 [  j- m2 @

五五

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

wudi

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