Усовершенствуйте программу TablMul (пример 2 данного параграфа) таким образом, чтобы в результате выводилось сообщение о количестве правильных и неправильных ответов

Var x,y,i,z,p,n:integer;
Begin
Randomize;
p:=0;
n:=0;
For i:= 1 to 10 do
    Begin
    x:=random(8)+2;
    y:=random(8)+2;
    WriteLn('Сколько будет ',x,'*',y,'?');
    Read(z);
    if z=x*y then
       Begin
       WriteLn('Правильно!');
       p:=p+1
       End
    else
       Begin
       WriteLn('Не правильно! ',x,'*',y,'=',x*y);
       n:=n+1
       End
    End;
WriteLn('Количество правильных ов: ',p);
WriteLn('Количество неправильных ов: ',n);
End.