Potential bugs to resolve:
**************************

// Problem: strings must be assigned to '' (s:='').

// bug: Compile error with internal x(s,i):b functions
if IsLexeme(id,lex_Name) and IsLexeme(id,lex_Name) then writeln('xx');
if Adam_Request(id,0) and Adam_Request(id,0) then writeln('xx');


// bug: wrong calculation of 
// var a,b:boolean;
// if (a=b) then ...
