Попробуйте переделать этот код используя массив из структур подобного типа:
Код:
type
TRecord = packed record
question: String; // Строка с вопросом
answer: Boolean; // Ответ на вопрос: True = Да / False = Нет
end;
TArray = array of TRecord; // Определяем тип для задания массива. Так массив можно будет передать через параметры в процедуру подсчёта
Тогда для подсчётов можно будет обойтись простым циклом вместо разбора строк. К тому же вы не синхронизируете разбираемые строки и не сопоставляете количество символов в ответах. Т.е. если в строку с ответами не будет записана 1, тогда вы получите ошибку и сопоставления ответов будут не верными.