[firebase-br] Procedure com erro

[Edson]

Amigos,

Estou iniciando em SP e estou apanhando com a criação da minha procedure em 
que ocorre o seguinte erro:
Dynamic SQL Error
SQL error cod = -104
Token unknown  - line 17, char 4
END

Procedure:
CREATE PROCEDURE PESQ_REGISTRO ( REG INTEGER )
returns (
    registro integer,
    nome varchar(60),
    data_nasc date,
    telefone varchar(13),
    nome_mae varchar(40) )
as
BEGIN
   FOR SELECT A.REGISTRO,A.NOME,A.DATA_NASC,A.NOME_MAE,A.TELEFONE
   FROM AGENDA A
   WHERE A.REGISTRO = :REG
   INTO :registro, :nome, :data_nasc, :telefone, :nome_mae
   DO
   BEGIN
      SUSPEND
   END
END