[Pascal] Help

Salut procedure en c il compte pas j juste les m
il les voles dicertement (le 2 emme compteur :j) c'est bizare
merci de me faire savoire pas avance _


program enseignat;
type
enr=record
nom:string[25];
prenom:string[25];
ddn:string[8];
lieu:string[15];
grade:char;
situation_f:char;
nbre_enf:integer;
diplome:array[1..3] of Record
titre:char;
annee_o:string[4];
mention:string[15];
end;
end;
var
enseignant:file of enr; v:enr; choix:integer;
procedure creat;
var k,i,j,nb:integer;
begin
rewrite (enseignant);
write ('entrer le nb d''enseignant:');
readln(nb);
for i:=1 to nb do
begin
write('entrer le nom:');
readln(v.nom);
write('entrer le prenom:');
readln (v.prenom);
write ('entrer ddn:');
readln (v.ddn);
write ('entrer le lieu n:');
readln (v.lieu);
write ('entrer le grade:a/m/c/f/p? ');
readln (v.grade);
write ('entrer la situation de famille:');
write('c/m/v/d?:');
readln (v.situation_f);
write ('entrer le nb enfant');
readln (v.nbre_enf);
write ('entrer le nbre de diplome:');
readln (j);
for k:=1 to j do begin
v.diplome[j].titre:=' ';
v.diplome[j].annee_o:=' ';
v.diplome[j].mention:=' ';
end;
for k:=1 to j do begin
write ('entrer le titre:b/i/m/d');
readln(v.diplome[j].titre);
write ('enter l''annee d''ob');
readln (v.diplome[j].annee_o);
write ('entrer la mention');
readln (v.diplome[j].mention);end; WRITE (ENSEIGNANT,V);
END; (*FOR*)
CLOSE (ENSEIGNANT); END;
PROCEDURE B;
var i,j:integer;
BEGIN
RESET (ENSEIGNANT);
if IORESULT <>0 then BEGIN
WRITE ('FICHIER INEXISTANT');

EXIT; END; j:=0;
FOR I:=1 TO filesize(enseignant) DO
Begin
read (enseignant,v);
if (v.situation_f='m') and (v.nbre_enf<=2) then
j:=j+1;
end;writeln (j); close (enseignant);
end;
procedure c; (*problem c*)
var j,i:integer;
begin
reset (enseignant);j:=0;
while not eof (enseignant) do
begin
read (enseignant,v);
for i:=1 to 3 do begin (*svp ici mon problem*)
(*compteur pas juste de m*)
if v.diplome[i].titre='m'then
if v.diplome[i].annee_o<'1996' then
j:=j+1;

end;
end;write ('le nbres enseig. ayant magister<96:');
writeln (j);close (enseignant);
end;
procedure d;
var
i,j:integer;begin
reset (enseignant); j:=0;
for i:=1 to filesize (enseignant) do
begin
read (enseignant,v);

if v.diplome[3].titre<>' ' then
j:=j+1;
end;
write (j); CLOSE (ENSEIGNANT);end;

procedure d2;
var
N,F,i,j:integer;
begin
reset (enseignant); j:=0;
for i:=1 to filesize (enseignant) do
begin
F:=0;
read (enseignant,v);
FOR N:=1 TO 3 DO BEGIN


if v.diplome[N].titre<>' ' then F:=F+1;
IF F>3 THEN
j:=j+1;
end;
end; write ('LE NOMBRE ENS>2 DIP=',j)

close (enseignant); END; begin
assign(enseignant,'c:\texte2.exe');
writeln ('entrer choix:1:creat,2:nbre enf.marier<2');
writeln('entrer choix : 3:magister avant 96,4:exit,5 OU 6:nbre dp.');

readln (choix);
case choix of
1:creat;
2:b;
3:c; (*ici ? il compte pas juste Le j (delicat ERR.ATRAVER)*)
4:exit;
5:d;
end;readln;readln; end.

(*et pourtant c'est juste (structure) "j" s'il vous plais corriger moi*)