Usando um for select dentro da storedprocedure no firebird/interbase

Create procedure SP_RETORNO(PCOD INTEGER)
returns (COD INTEGER, NOME VARCHAR(30),
VALOR NUMERIC(15,4))

as
begin
for select CODIGO, NOME from CLIENTES
where CODIGO = :PCOD
into :COD, :NOME do
begin
select VALOR from VALORES
where CODIGO = :COD
into :VALOR;
if ((VALOR IS NULL) or (VALOR = 0)) then
VALOR = 1;
suspend;
end
end;

{Para visualizar os registros retornados desta StoredProcedure podemos fazer um Select dentro da Query,
ficando a instrução da seguinte forma: }
select * from SP_RETORNO( 10 )