end

(* Orden compuesta dentro de un "for" *)
for x := 1 to 10 do  
begin
  Write(x*2); 
  Write(' '); 
end;
 
(* Orden compuesta dentro de un "if" *)
if primero < segundo then
begin
  temp := primero;
  primero := segundo;
  segundo := temp;
end;

(* "end" en un "case" *)
 case Ch of
   'A'..'Z', 'a'..'z':  WriteLn('Letra');
   '0'..'9':            WriteLn('Dígito');
   '+', '-', '*', '/':  WriteLn('Operador');
 else
   WriteLn('Carácter especial');
 end;

(* "end" en un "record" *)
type
  Fecha   = record
    D, M, A: Integer;
  end;

(* "end" en un "object" *)
type
  Punto = object
    X, Y: Integer;
    procedure Init(PX, PY: Integer);
    function GetX: Integer;
    function GetY: Integer;
  end;

(* "end" con "asm" *)
asm
  mov ax,1
  mov cx, 100
end;