Mostrar Tabelas e Quantidade de Registros

Ola amigos.
Gostaria de Mostrar e Contar os registros de todas as tabelas de BD.
Pensei em fazer uma procedure mas não consegui exito.
Por enquanto ela esta assim :
CREATE PROCEDURE AUDITORIA_TABELAS
RETURNS (
NOME_TABELA VARCHAR (31),
REGISTROS INTEGER)
AS
BEGIN
FOR SELECT
RDB$RELATIONS.RDB$RELATION_NAME
FROM RDB$RELATIONS
WHERE (RDB$RELATIONS.RDB$SYSTEM_FLAG = 0) OR
((RDB$RELATIONS.RDB$VIEW_SOURCE IS NULL) AND
(RDB$RELATIONS.RDB$SYSTEM_FLAG IS NULL))
ORDER BY RDB$RELATIONS.RDB$RELATION_NAME
INTO NOME_TABELA
DO BEGIN
SUSPEND;
END
END
Tentei executar um comando com EXECUTE STATEMENT mas não obtive resultado ,pois statements não podem retornar resultado.
Falta referenciar o nome da tabela e inserir na variavel de retorno REGISTROS.
Se tiver outro meio de fazer esta listagem com Quantidade ( através de um select ) ficaria muito melhor, mas não consigo passar o nome da tabela por referencia para SELECT COUNT(*) FROM ´NOME_TABELA).
Agradeço antecipadamente.