Error 113, Error in statement Опции

[Слай]

Даже и не знал, куда запихнуть свой вопрос: то ли в Теорию, то ли в Задачи...

Фигня вот в чем:

 Procedure BuildMS;
Var i,j: integer;
    StartOfEdge, EndOfEdge: integer; { // nachalo i konec dugi}
BEGIN
case WhatKind of
     0:
     begin { // !!! OF CASE = 0 }
           for j:=1 to E do
               begin
                    for i:=1 to N do
                        begin
                             if (MI[i,j] = 1) then StartOfEdge:=i;
                             if (MI[i,j]= -1) then EndOfEdge:=i;
                        end;
                    MSb[StartOfEdge,EndOfEdge]:=1;
               end;

           for i:=1 to N do
               begin
                    for j:=1 to N do
                        begin
                             Write('   ',MSb[i,j]);
                        end;
                    WriteLn;
                    end;
     end; { // !!! OF CASE = 0 }

     1:
     begin { // !!! OF CASE = 1 }
           WriteLn('[x] Under Construction');
     end; { // !!! OF CASE = 1 }
END;

при компиляции указывает на первую строчку процедуры и пишет Error in statement... в чем проблема?

[volvo]

в чем проблема?

В приведенном фрагменте - в том, что переменная WhatKind не описана...

[Слай]

В приведенном фрагменте - в том, что переменная WhatKind не описана...

данная переменная -- глобальная. то есть она имеется в главной программе...
и что самое интересное, перед процедурой BuildMS идет практически такая же процедура BuildMI, которая компилируется, судя по всему, нормально...

Желательно увидеть всю программу...

сейсас тогда исходник прикреплю...

Сообщение отредактировано: Слай - 28.06.2008 14:15