Probleme dans l'informatique(pascal)

svp j'ai un petit probléme est comment accés a un enregestrement dans un fichier par exemple soit le fichier electeur trier respectivement par l'ordre de bureau alors comment calculer le nombre des electeur de chaque bureau ,et voila ma reponse:
program elect;
type elec=record
nom:string[30];
prenom:[30];
numero:integer;
end;
var elect_f:file of elec;
begin
reset(elect_f);
while eof(elect_f)<>1 do
for i=0 to n-1 do
filesize(elect_f);
i:=i+1;
end;