Написать программу проверки знания таблицы умножения. Программа должна вывести 10 примеров и выставить оценку: 10

program ex66;
Uses Crt;
VAR
a, b, res, k, err, i: integer;
BEGIN
clrScr;
err:=10; {количество правильных ответов}
writeln('Проверка знания таблицы умножения');
for i:=1 to 10 do
begin
a:=trunc(random(9)+1);
b:=trunc(random(9)+1);
res:=a*b; {правильный результат}
write(a,'*',b,'=');
readln(k); {ответ пользователя}
if k<>res then {если ответ неверный}
begin
writeln('Ошибка! ',a,'*',b,'=',res);
dec(err); {выводим ошибку и уменьшаем на 1 кол-во правильных ответов}
end;
end;
writeln('Правильных ответов: ', err);
case err of
10: WriteLn('Оценка: отлично');
8,9: WriteLn('Оценка: хорошо');
6,7: WriteLn('Оценка: удовлетворительно');
0..5: WriteLn('Оценка: плохо');
end;

readLn;
END.