problema novatol stored procedure

[Galahad]

hola, estoy empezando con firebird y en el primer stored procedure que intento desarrollar tengo un problema super raro, este es el código del
procedimiento

 
ALTER PROCEDURE RELLENA_FAM_CUENTA (
    EMPRESA Varchar(3) )
AS
DECLARE VARIABLE ncontador smallint; 
declare variable ccadena   varchar(6);
BEGIN
    ncontador = 1;
    if (ncontador < 10) then  
         ccadena = '0' || cast( ncontador as varchar(6) ) 
    else 
         ccadena =   cast( ncontador as varchar(6) );   
   
END^
SET TERM ; ^

el problema me lo dá en la línea del 'else', me dice 'token desconocido'
no veo nada raro, en fin seguro que es una tonteria...
como administrador de la base de datos utilizo el Flamerobin.
saludos...