linguagem pascal

Um matemático italiano da idade média conseguiu modelar o ritmo de crescimento da população de coelhos através de uma sequência de números naturais que passou a ser conhecida como sequência de Fibonacci. O n-ésimo número da sequência de Fibonacci Fn é dado pela seguinte fórmula de recorrência:

Var

// Seção de Declarações das variáveis

	 n, F1, F2, Funcao, Conta: inteiro;

	Inicio

	// Seção de Comandos, procedimento, funções, operadores, etc... 

	escreva ("Digite um numero n:");

	  ler (n);

	  Conta: = 1;

	  F1: = 1;

	  F2: = 1;

	  Funcao: = 0;

	  enquanto (Conta <= n) faça

	    início

	      F1: = F2;

	      F2: = Funcao;

	      Funcao: = F1 + F2;

	      Conta: = Conta + 1

	    fim;

	  writeln ('F de', n, '=', Funcao)

	fimse

	Fimalgoritmo qual foi meu erro