and    array     begin    case   const   div   do     downto    else     end    file    for    forward         function  goto   if      in     label  mod      nil       not    of      or   packed procedure  program   record   repeat   set    then     to        type   until   var   while   with