procedure assert(cond: boolean);  

,    .    ( ),        .    debug       .     : 
Assertion failed at: Tetris.mpsrc:162  




function chr(n: integer): char;  

    ASCII.    ,    ,  127. 




procedure debug(s: string);  

  ,     .          ( ,      ).     ,   ,       Java.     Java,       " -> Sun Java Console" ("Tools -> Sun Java Console").     ,        DOS,     . 






function getProperty(propertyName: string): string;  

       Java.  ,      ,       Java. 

  begin 
    debug(getProperty('microedition.locale')); 
  end. 





procedure halt;  

  . 





function isMidletPaused: boolean;  

 'true',        'false'   . 

 ,     .       , ,   .     ,           .  ,     ,     . 

        . ,  , ,    ,      .     : 

  ... 
  repeat 
    {       } 

    {     , ,        } 

    while isMidletPaused do 
    begin 
      delay(100); 
    end;  

  until gameOver; 
  ... 




function odd(n: integer): boolean;  

 'true',      'false'   . 





function ord(c: char): integer;  

  ASCII   . 






function random(n: integer): integer;  

    0  (n-1). 

      boolean;  ,      'true'  75%: 

  function randomBoolean: boolean; 
  begin 
    if random(4) = 3 then  
      randomBoolean := false; 
    else 
      randomBoolean := true; 
  end; 





procedure randomize;  

   .        ,        ,   .