souci turbo pascal

Bonjour je souahaite faire un programme générant des calcul simple (addition de deux entiers) qui serot par la sutie vérifié par l'ordinateur puis validé avec un syteme de compteur qui contera les bonnes reponses et les mauvaises, voici ma syntaxe (en turbo pascal) :
var x,y,c,d : integer
var resultat : integer
BEGIN
c:=0
d:=0
x :=random(16)
y :=random(16)
write (x, '+', y);
readln(resultat);
if resultat=y+x then
c :=c+1 else
d :=d+1;
write