А зачем такие сложности? Все можно сделать и без подпрограмм и гораздо меньшими усилиями и меньшими затратами памяти.
Код:
var i, a, b, otv, rez:integer;
begin
randomize;
rez:=0;
for i:=1 to 10 do begin
a:=random(10)+1;
b:=random(10)+1;
writeln(a,'*',b,'=?');
readln(otv);
if a*b=otv then begin inc(rez); writeln('Good'); end else writeln('Not good');
end;
writeln('Ocenka ',(rez+1) div 2);
readln
end.
Листинг, правда, не для вашей версии ЯП, но, думаю, вполне будет работать. Обращаю внимание, что числа для проверки будут каждый раз генерироваться новые и в конце выдается оценка