{$apptype console}
{$H-}
uses
 MyCGI,windows,sysutils;

function gfbn(const Name: ansistring): ansistring;
  var
   Buffer: array[0..4095] of Char;
  begin
   SetString(Result, Buffer, GetEnvironmentVariable(PChar(Name), Buffer, SizeOf(Buffer)));
  end;

const
 MaxTest = 10;

type
 TestRec = Record
   QNum: Integer;
   ANum: Integer;
 end; //TestRec

var
 TestAArray: array[1..MaxTest] of TestRec;

const
 CountTestArray: Integer = 0;
 QFile = 'test.txt';
 MaxQA = 100;
 MaxA  = 3;

type
 QA = Record
   Q: String[100];
   A: array[1..MaxA] of String[100];
   Right: 1..MaxA;
 end; //QA

var
 QAArray: array[1..MaxQA] of QA;

const
 CountQAArray: Integer = 0;

procedure LoadQAArray;
var
 f: TextFile;
 s: String;
 i: Integer;
begin
 AssignFile(f, QFile);
 Reset(f);
 While not EOF(f) do
   begin
    Readln(f, s);
    if s = '' then break;
    Inc(CountQAArray);
    with QAArray[CountQAArray] do
      begin
       Q := s;
       for i := 1 to MaxA do Readln(f, A[i]);
       Readln(f, Right);
      end;
   end;
 CloseFile(f);
end;


procedure SaveSFile(fn: String);
var
 f: File;
begin
 AssignFile(f, fn);
 ReWrite(f,1);
// writeln(CountQAArray);
 BlockWrite(f, CountQAArray, SizeOf(CountQAArray));
 if CountQAArray<>0 then
  BlockWrite(f, QAArray, CountQAArray * SIzeOf(QA));
 BlockWrite(f, CountTestArray, SizeOf(CountTestArray));
 if CountTestArray<>0 then
  BlockWrite(f, TestAArray, CountTestArray * SIzeOf(TestRec));
 closefile(f);
end;

procedure LoadSFile(fn: String);
var
 f: File;
begin
 AssignFile(f, fn);
 Reset(f,1);
 BlockRead(f, CountQAArray, SizeOf(CountQAArray));
 if CountQAArray<>0 then
  BlockRead(f, QAArray, CountQAArray * SIzeOf(QA));
 BlockRead(f, CountTestArray, SizeOf(CountTestArray));
 if CountTestArray<>0 then
  BlockRead(f, TestAArray, CountTestArray * SIzeOf(TestRec));
 closefile(f);
end;

{
Параметры
 id - скрытое поле id сессии
 qnum - скрытое поле номер вопроса 
 anum - номер выбр.ответа

}

var id,_anum,_qnum:string;

procedure outNextTest;   
  var s:ansistring;
      q,i:integer;
 begin          
  q:=CountTestArray+1;
  s:=QAArray[q].Q+'<br>';
  for i:=1 to maxA do begin
   if QAArray[q].A[i]='' then continue;
   s:=s+'<input type="radio" name="anum" value="'
      +inttostr(i)
      +'">'+QAArray[q].A[i]+'<br>';
  end;
  s:='<form>'+
     '<input type="hidden" name="qnum" value='+inttostr(q)+'>'+
     '<input type="hidden" name="id" value='+id+'>'+
     s+
     '<p><input type="submit" value="ответить">'+
     '</form>';
  writeln(s);
 end;
 

 procedure outResult;
  var i:integer;
 begin
  writeln('Ответы: <br>');
  for i:=1 to CountTestArray do begin   
   write(TestAArray[i].qnum,' - ');
   if TestAArray[i].anum=QAArray[TestAArray[i].qnum].Right then
    write('верно')
   else 
    write ('неверно');
   writeln('<br>');
  end;
 end;

var data:string;

begin
 data:=gfbn('QUERY_STRING');
 writeln('Status: 200 Ok');
 writeln('Content-Type: text/html; charset=windows-1251');
 writeln;
 LoadQAArray;
 if data<>'' then begin
  id:=getdata('id',data);
  _anum:=getdata('anum',data);
  _qnum:=getdata('qnum',data);
  LoadSFile(id);
 end
 else id:=getuniid;
 if _qnum<>'' then begin
  inc(CountTestArray);
  with TestAArray[CountTestArray] do begin
   anum:=strtoint(_anum);
   qnum:=strtoint(_qnum);
  end;    
 end;
 SaveSFile(id);
 if CountTestArray= CountQAArray then begin
  outResult;
 end
 else
  outNextTest;   
end.