[firebase-br] o que há de errado na SP

[Jeudí Prando]

SET TERM ^ ;

CREATE PROCEDURE SP_USUARIOS (
    PI_NOME VARCHAR(60) CHARACTER SET WIN1252)
RETURNS (
    PO_CODIGO INTEGER,
    PO_NOME VARCHAR(60) CHARACTER SET WIN1252)
AS
DECLARE VARIABLE VR_CONTADOR INTEGER;
begin
  select count(*) from usuarios where nome like :pi_nome || '%' into 
:vr_contador;

  if (:vr_contador > 0) then
  begin
    select codigo, nome from usuarios where nome like :pi_nome || '%' 
into :po_codigo, :po_nome;
    suspend;
  end
  else
  Begin
    select codigo, nome from usuarios where nome like '%' || :pi_nome || 
'%' into :po_codigo, :po_nome;
    suspend;
  end;
end
^

SET TERM ; ^

DESCRIBE PARAMETER PO_CODIGO PROCEDURE
'Código do Usuário';

DESCRIBE PARAMETER PO_NOME PROCEDURE
'Nome do Usuário';

DESCRIBE PARAMETER PI_NOME PROCEDURE
'Nome do Usuário para relizar a busca';

GRANT SELECT ON USUARIOS TO PROCEDURE NEW_PROCEDURE;


esta dando o erro:

"semicolon after the END not allowed"

não estou entendendo...