Firebird - Contar pedidos listando os itens

SELECT
   FIRST 100
   I.ID,
   I.ID_PEDIDO,
   P.DATA,
   iif(( lag(I.ID_PEDIDO) OVER ()) = I.ID_PEDIDO , 0, 1)  AS C_CONT_PED
FROM PEDIDO P
INNER JOIN ITENSPEDIDO I ON I.ID_PEDIDO = P.ID
WHERE
   P.DATA >= '03/01/2019'
ORDER BY
   P.DATA, P.ID


-- Para contar a quantidade de pedidos, basta dar um sum na coluna C_CONT_PED