Помогите с тестом пожалуйста!

[Irlandka]

добрый вечер. Пишу программу тест в делфи. Хочу что бы после прохождения теста вместе с результатами высвечивались те номера вопросов на которые испытуемый ответил не правильно.Помогите пожалуйста)
и еще что бы в файл записывались не просто количество верных ответов, а вопросы на которые испытуемый ответил правильно или не правльно

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
  var i,k, s:byte; f:TextFile;
     NVr,plus,j,p:integer;
     Vr: array [1..100] of TStringList;
     Str:String;
begin
  AssignFile(f,'result.txt');
  rewrite(f);

  plus:=0;
for j:=1 to count do
 begin
  p:=0;
  for i:= 0 to 10 do
    if Answers[j,i]=MyAnswers[j,i] then inc(p);
  if p=11 then inc(plus);
 end;

 writeln(f, inttostr(plus));

   CloseFile(f);

end;

[Streletz]

Сообщение от Irlandka

добрый вечер. Пишу программу тест в делфи. Хочу что бы после прохождения теста вместе с результатами высвечивались те номера вопросов на которые испытуемый ответил не правильно.Помогите пожалуйста)
и еще что бы в файл записывались не просто количество верных ответов, а вопросы на которые испытуемый ответил правильно или не правльно

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
  var i,k, s:byte; f:TextFile;
     NVr,plus,j,p:integer;
     Vr: array [1..100] of TStringList;
     Str:String;
begin
  AssignFile(f,'result.txt');
  rewrite(f);

  plus:=0;
for j:=1 to count do
 begin
  p:=0;
  for i:= 0 to 10 do
    if Answers[j,i]=MyAnswers[j,i] then inc(p);
  if p=11 then inc(plus);
 end;

 writeln(f, inttostr(plus));

   CloseFile(f);

end;

Можно в ходе выполнения теста, формировать списки вопросов с правильными и не правильными ответами. Например в виде массива. После завершения тестирования выводить оба списка на экран и в файл.

[Serge_Bliznykov]

Irlandka, Вы бы исходники проекта (в архиве) выложили на форум, + файл вопросов, был бы повод для разговора.. А так - разговор исключительно теоретический.
вот, например, Streletz верно ответил - Вам нужно формировать список вопросов, на которые отвечали с пометкой "правильно/неправильно" (не обязательно массив, можно и TList/TStringList задействовать), после окончания теста делайте с этим списком что хотите - хотите, показывайте статистику, хотите, выдайте перечень вопросов, на которые ответили неверно...