"begin end;" "if expresion then begin end;" "if expresion then begin end else begin end;" "while expresion do begin end;" absolute and array asm as begin case const constructor class destructor div do downto dispose else end exit except exports for function file finalization finally goto if implementation in inherited inline interface initialization is library label mod not nil new or object of on operator out procedure property public private packed program repeat record reintroduce raise string self set shl shr then to try true type threadvar unit until uses var while with xor

Repeat Until