Fibonacci (Pascal)

O programa pede ao usuário um número qualquer inteiro, e também pede que informe a quantidade de números da sequência Fibonacci que deseja ver.
Como saida ele informa o número inicial fornecido pelo usuário e em seguida a sequência fibonacci desse número.

http://paste.pocoo.org/show/149912/