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

[-Shults99-]

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

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

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

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

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

[klem4]

Вот набросал на скорую руку, суть я думаю поймешь :

uses crt;
var
   f : text;
   s : string;
   ch : char;
   i,j,sum,e,t : integer;

begin

   clrscr;

   assign(f,'c:\questions.txt');

   reset(f);

   sum := 0; i := 0;

   while (not(eof(f))) do begin
      clrscr;
      inc(i);
      writeln('Vopros N ',i);
      readln(f,s);
      writeln(s);
      writeln('Varianti otvetov');
      for j := 1 to 4 do begin
         write(j,' ');
         readln(f,s);
         writeln(s);
      end;
      writeln;
      repeat
         ch := readkey;
      until ch in ['1'..'4'];

      for j := 1 to 4 do begin
         readln(f,s);
         if j = ord(ch)-48 then begin
            val(s,t,e);
            sum := sum + t;
         end;
      end;
   end;

   writeln('sum = ',sum);
   close(f);
   readln;

end.

Содержание файла :

Skolko vipit piva ?
dva batla
tri batla
5 batlov
niodnogo
3
7
9
0
oleg opozdaet ?
da, na 5 minut
da, na 20 minut
net
ya sam opozdau muahaha!
1
2
10
15