Creation de module et fichier

Bonjour, est ce que quelqu'un peut me dire si l' algorithme es bon ou pas ? Je suis en train de reviser pour une evaluation. Merci d'avance
L'enoncé de l'exercice en piéce jointe. Et voici ce que j'ai fait.

type Electeur = structure
DEBUT
numID: chaine
sexe, nom, pnom, add, regiondOrig, regVote: chaine
bVote, nbrePartcip : entier
Fin
const N = 1500
type tab = tableau[1..N]Electeur
var t: tab
type FichierElect = Fichier Electeur
var Felect: FichierElect
Procedure EXO(Donnee t: tab N: entier
Resultat Felect: FichierElect)
var e: Electeur
var i: entier
DEBUT
Ouvrir (Felect)Ecriture
Pour i allant de 1 a N Faire
Si(t[i].bVote = "Dakar ") Alors
t[i] ← e
Ecrire ( e, Felect)
FinSi
FinPour
Fermer(Felect)
FIN