Счетчик и вывод ошибок, Как можно показать человеку где, и сколько раз он допустил ошибку??? Опции

[Женя]

Есть программа, назовём ее “Загадки”. Программа работает следующим образом, на экран выводится некая загадка и нужно ввести на нее ответ с клавиатуры, если ответ введен не верно то программа выводит сообщения об ошибки, и просит ввести ответ еще раз, если ответ введен верно, то программа перейдет к следующий загадки. В программе ведется общий подсчет допущенных ошибок, например если человек ошибается на одной загадки три раза, а на другой два раза то, это будет считаться 5 ошибок.

ВНИМАНИЕ ВОПРОС.
Можно ли сделать так, что бы в конце выводились те загадки, на которых были допущены ошибки, и информация о том сколько раз на каждой из них человек допустил ошибку???

Writeln (' Не ездок, а со шпорами, Не будильник, а всех будит.');
readln (s);
while (s<>'петух') do
begin
writeln ('Слово введено неверно или вообще не введено!!! Будьте внимательны при вводе.');
readln (s);
end;

begin
writeln('Верно!');
ot:=ot+1;
end;


Writeln (' Она красива и мила,  А имя ей от слова "зола".');
readln (s);
while (s<>'золушка') do
begin
writeln ('Слово введено неверно или вообще не введено!!! Будьте внимательны при вводе.');
o:=o+1;
readln (s);
end;