Alter Sequencie

Olá senhores, boa tarde.

Estou com o seguinte problema...cadastrei em lote alguns dados nas
tabelas do meu bd, só que as seqüências não foram atualizadas,
todas elas se encontram com valor atual igual a 1, gerando erros quando
eu vou cadastrar alguma informação.

Primeiro gostaria de saber se existe algo fácil de "reindexar" a
seqüência, ou se é necessário refazer a seqüência de cada tabela
com o valor atual da minha pk.

Eu tentei criar uma função que varresse todas as minhas tabelas e
utilizasse o alter sequence <<nome_da_minha_sequencia>> restart with
<<valor_atual>>, mas para isso eu preciso saber o valor atual das
minhas chaves primárias, aí eu parei...

Alguém pode me ajudar...????

Desde já agradeço...
Leonardo Matos