Тестирование, Прога-тест, в конце баллы Опции

[-Shults99-]

Подскажите, кто-нибудь видел подобное(всмысле код)?

Тестирование.
Испытуемому предлагаются вопросы, на которые он должен ответить. 4 варианта ответа – выбрать подходящий. В конце суммируются оценки и выводится общий бал.
Вам предстоит создать программу, которая позволяет автоматизировать процесс тестирования. Область тестирования должна быть определена Вами (любая, которая интересна с Вашей точки зрения). Требования к программе В результате анализа различных тестов были сформулированы следующие требования к программе:

1.Программа должна обеспечить работу с тестом произвольной длины, т.е. не должно быть ограничений на
количество вопросов в тесте.
2.Каждому вопросу может соответствовать до четырех возможных вариантов ответа со своей балльной оценкой.
3.Результат тестирования должен быть отнесен к одному из четырех уровней. Например, "отлично", "хорошо",
"удовлетворительно" или "плохо".
4.Тест представляет собой текстовый файл.
5.Программа должна быть инвариантна к различным тестам, т.е. изменения в тесте не должны вести за собой
требования изменения программы,
6.Программа не должна обеспечивать возврат к предыдущему вопросу. Если вопрос предложен, то на него должен
быть получен ответ.

**********************************************************

Запуск проги может быть из строки test.exe text_fail
где text_fail - текстовый файл с тестами.
Каждый вопрос сотоит из теста вопроса и текста вариантов ответа.
и т.д.

[Shults99]

Осталось совсем чуть-чуть.
Как напишу выложу тест по определению силы воли в профессиональной деятельности )))
Так, вопрос.
Три оценки по прохождению теста, взависимости от значения переменной sum.
Как их с помощью цикла (или нет) выдавать. Т.е. если сумма 10, то тройка, если сумма 15, то 4-, если больше, чем 15, то 5 ?
Вот пока все, о чем я додумался.

    writeln('Nabrano ballov - ',sum);
      if sum<=12 then
      writeln('Vasha otcenka = 0  Vy prosto delayete to, chto Vam interesno');
      else
      if (sum>13) and (sum<21) then
      writeln('Vasha otcenka = 4-  Po dobroy vole lishnego na sebya ne vozmete ;)')
      else
      writeln('Vasha otcenka = 5  Podumayte o gibkosti, snishoditelnosti i dobrote');
   close(f);
   readln;

[Shults99]

Тест силы воли в профессиональной деятельности.