Exercicio em Pascal

Eu estou começando a programar em pascal,tenho um exercicio sobre procedimento e não consegui fazer,se puder me ajudar,obrigado!

Faça um procedimento com um parâmetro

inteiro n e que ao ser chamado, imprime

uma figura da seguinte forma:

….*….

…***…

..*****..

.*******.

*********

.*******.

..*****..

…***…

….*….

No caso, o procedimento foi chamado com o

parâmetro 5. A quantidade de linhas

impressas é 2n-1.