Пропущено =. Подсистема на Z начиналась - нарвался
> -- Цитата:
> PROCEDURE ReadPath (IN s: ARRAY OF CHAR; OUT t: ARRAY OF CHAR; VAR i: INTEGER; VAR ch: CHAR);		VAR j: INTEGER;	BEGIN	(* extract the designator that describes a global variable *)		j := 0;		IF (CAP(ch) >= "A") & (CAP(ch) < "Z") THEN			REPEAT				t[j] := ch; INC(j);				INC(i); ch := s[i]			UNTIL (ch < "0") & (ch # ".") OR ("9" < ch) & (CAP(ch) < "A") OR ("Z" < CAP(ch)) & (ch # "_") OR (j = varLen)		END;		t[j] := 0X	END ReadPath;