[firebase-br] Procedure

[Marcelo Borges]

Galera estou estudando sobre firebid e me enrosquei em procedure
estou tentando fazer esta sp de insert e para no end : alguém sabe me dizer o que está errado?


create or alter procedure grava_clientes(
 pnome varchar(100),
 prg   varchar(20),
 pcpf varchar(20),
 pcnpj varchar(20),
 pincricao varchar(50),
 prazao varchar(50),                                                                                        
 pendereco varchar(50),
 pnumero varchar(6),
 pcomplemento varchar(50),
 pbairro varchar(50),
 pcidade varchar(50),
 pestado varchar(2),
 pcep varchar(20),
 ptelefone varchar(20),
 pcelular varchar(20),
 pemail varchar(50),
 pvalorcredito decimal(15,2),
 pdatainclusao date,
 pativo char(1),
 pusuario varchar(20),
 pobservacao varchar(250))
 as
 begin
    insert into clientes(nomeclienteempresa,
                          rg,
                          cpf,
                          cnpj,
                          incricaoestadual,
                          razaosocial,
                          endereco,
                          numero,
                          complemento,
                          bairro,
                          cidade,
                          estado,
                          cep,
                          telefone,
                          celular,
                          email,
                          valorcredito,
                          datainclusao,
                          ativo,
                          usuario,
                          observacao )
                 values(
                        :pnome,
                        :prg,
                        :pcpf,
                        :pcnpj,
                        :pincricao,
                        :prazao,
                        :pendereco,
                        :pnumero,
                        :pcomplemento,
                        :pbairro,
                        :pcidade,
                        :pestado,
                        :pcep,
                        :ptelefone,
                        :pcelular,
                        :pemail,
                        :pvalorcredito,
                        :pdatainclusao,
                        :pativo,
                        :pusuario,
                        :pobservacao)
end --- da erro nesta linha e ja pesquisei e não sei como fazer(Dynamic SQL Error.SQL error code = -104.Token unknown 
-line 69, char 1.
end.