Pascal programozásban segítene valaki?

Az volt a feladat hogy csináljunk olyan programot ami bekér egy számot, és ehhez a számhoz véletlenszerűen generál 1-9-ig egy számot.Ezt a két számot kell összeadni és beírni az eredményt.Ha helyes akkor jön egy következő feladat, ha nem akkor újrakérdezi ugyanazt a feladatot.Ezt kell megcsinálnia 10x, és a végén ki kell írnia hogyhány helyes válasz és hány hibás válasz volt.És esetleg százalékosan kiszámítani az eredményt.

Az alap megvan addig, hogy 10x megismétli a feladatot, és ha rossz akkor újraküldi.Eddig így néz ki:

var a,b,i,v,e:byte;

helyes:boolean;

RANDOMIZE;

write('Irj be egy szamot: ');readln(a);

For i:=1 to 10 do

Begin

helyes:=False

b:=Random(9)+1;

repeat

write(a,'+',b,'=');readln(v);

e:=a+b;

If v=e then helyes:=true else writeln('Helytelen valasz.Probald ujra: ');

until helyes;

End;

readln;

END.

Innentől elakadtam.Azt a részt nem tudom hogy összeszámolja a hibás és a helyes válaszokat, meg a százalékos értékelést.Próbálkoztam már több módszerrel de mindnél volt valami hiba.Azt gondolom hogy kell 3 új változót deklarálni(egyet a hibás válaszoknak, egyet a helyeseknek, egyet a százalékos eredménynek), de hogy utána mit kell csinálni már nem tudom.