char to varchar

preciso  rodar um procedure que faça o seguinte

percorra todas as tabelas do banco, campo a campo de cada tabela

e quando este campo for tipo char e seu tamanho for maior que 10

preciso transforma-lo para varchar

obrigado