erro em procedure

SET TERM ^;
CREATE PROCEDURE "RECCOMPRATXT" 
(
  "NOSSONUMTXT" VARCHAR(15) CHARACTER SET WIN1252,
  "DATAPG" DATE,
  "VALOR" DOUBLE PRECISION
)
RETURNS
(
  "RETORNO" VARCHAR(2) CHARACTER SET WIN1252
)
AS
DECLARE VARIABLE SALDOFATURA DOUBLE PRECISION;
/*DECLARE VARIABLE DATAPGTO DATE;*/
DECLARE VARIABLE NOSSONUM VARCHAR(15);
DECLARE VARIABLE NUMCARTAO VARCHAR(16);
DECLARE VARIABLE NUMCARTRT VARCHAR(16);
BEGIN
 FOR SELECT FT.NTITULAR,FT.NOSSONUM,FT.SALDOFATURA FROM TABFATURAS FT
  WHERE FT.NOSSONUM=:NOSSONUMTXT AND FT.PAGO=´0´ AND FECHADA=´1´ INTO :NUMCARTAO,
  :NOSSONUM,:SALDOFATURA DO
  BEGIN
   IF (:NOSSONUM = :NOSSONUMTXT) THEN
    BEGIN
     IF (:SALDOFATURA=:VALOR) THEN
      BEGIN
       UPDATE TABFATURAS SET VRPAGO=:VALOR,DATAPGTO=:DATAPG,PAGO=´1´ WHERE
        NOSSONUM=:NOSSONUMTXT AND PAGO=´0´ AND FECHADA=´1´;
      END
      ELSE
       BEGIN
        UPDATE TABFATURAS SET VRPAGO=:VALOR,DATAPGTO=:DATAPG,PAGO=´1´ WHERE
         NOSSONUM=:NOSSONUMTXT
        AND PAGO=´0´ AND FECHADA=´1´;
        /****************************************************************/
        FOR SELECT RT.NCARTAO FROM TABVRROTATIVO RT WHERE NCARTAO=:NUMCARTAO
         INTO :NUMCARTRT DO
        /****************************************************************/
        IF (:NUMCARTRT=:NUMCARTAO) THEN
         BEGIN
          UPDATE TABVRROTATIVO SET VALOR=VALOR+(:SALDOFATURA-:VALOR),DATA=:DATAPG
           WHERE NCARTAO=:NUMCARTAO;
         END
         ELSE
          BEGIN
           INSERT INTO TABVRROTATIVO(NCARTAO,VALOR,DATA)VALUES(:NUMCARTAO,
           :SALDOFATURA-:VALOR,:DATAPG);
          END
       END
    END
    RETORNO=´01´;
    SUSPEND;
  END

END
 ^

SET TERM ; ^