End expected

salut a ts voila je suis entrin d'ecrir un program avec borland pascal 7 et l'ors de la compilation ya un msg d'erreur qui s'affiche "END EXPECTED" mais je narrive pas a le resourde en + g ts vérifié il ne manque aucun end .
si qq px bien maider ca sré gentille.
le message d'erreur saffiche juste sur la variable VAR
voila mon programme:

unit certif_scolarite;
interface
uses wincrt;
const n=1;
type date = record
jour:1..31;
mois:1..12;
annee:1900..2500;
end;
certificat = record
mat:integer;
nom,prenom:string[20];
date_nais:record
lieu_nais:string[15];
section:string[20];
d_d_stage:record
d_f_stage:record
d_d_certi:record
end;
var { le message d'errur s'affiche juste ici}
ch:char;
fichie:file of certificat;
etud:certificat;
n1,n2,m,numc,i,a,b,c,d:integer;
nom,prenom:string[20];
procedure affichage;
procedure c_a(var etudiant:certificat);
procedure creat;
procedure consultation;
procedure affiche;
procedure ajout;
{<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<}
implementation
procedur affichage;
begin

Configuration: Windows XP
Internet Explorer 6.0