Fórum Problema com While no Ibexpert #467034

Caros amigos,
estou com problemas ao criar uma procedure o Ibexpert está me retornando um erro no While. Por favor, verifiquem o código abaixo e me digam onde estou errando. Já que tentei todas as formas de While que conheço mas o erro persiste:
while (:ID_ENTRADA
begin
SELECT TRIM(CODIGO) FROM imp_entradas where ID = :ID_ENTRADA into :ITEM;
SELECT first 1 ITE_CDITEA015, TB_MNF.MNF_PRUNIN017 - (TB_MNF.MNF_PRUNIN017 * TB_MNF.MNF_PEDESN005 / 100) AS PR_COMPRA, MNF_DTMOVD000 as DT_COMPRA
from TB_MNF where NFI_SERIEA003 <> 'DEV' and ITE_CDITEA015 = :ITEM and EMP_CDEMPA003 = 020 and TMO_CDMOVI003 IN (1,2,3,4,5,6,7,16,17,18)
group by ITE_CDITEA015, PR_COMPRA, DT_COMPRA
ORDER BY (DT_COMPRA) DESC into :ITEM, :VLR_COMPRA, :DATA_COMPRA;
update IMP_ENTRADAS set PR_COMPRA = :VLR_COMPRA where IMP_ENTRADAS.ID = :ID_ENTRADA;
ID_ENTRADA = :ID_ENTRADA + 1;
end

Desde já agradeço muito.
Thiago