[roman]

Tengo dudas de que éste sea el código exacto. En la declaración

Código Delphi [-]
Var
  s_1, s_2, s_3, s_4, cad, sub, Mascara, pu, cad : string;

aparece dos veces el identificador cad y el compilador debió detenerse ahí antes de las líneas en rojo.