Exercices à corriger

Bonjour,
un programme qui permet d'introduire 10 nombres puis affiche le nombre de fois qu'un nombre donné a été introduit
ma réponse n'est pas trop précise:
Algorithme nombre;
var N,a,i,c: entier;
Debut
lire(N);
a:=N;
c:=1;
pour i=1 à 9 faire
début
lire (N);
si N=a alors
debut
a:=N;
c:=c+1;
fin si;
fin pour;
Ecrire('le nombrea ',a,' s'est répété ', c,' fois');
fin.

sauf que cet essai me permet juste d'afficher le résultat pour le premier nombre que j'ai inséré en executant, mais l'énoncé nous dis n'importe quelle nombre parmis ces dix.
Merci