{Zal n Eszter}
program teszt1;
uses newdelay,crt;
const maxvalasz=10;
type vtip=(egy,tobb,mind);
     valasz=record
              szoveg:string;
              pontszam:integer;
            end;
     kerdes=record
              vdb:integer;
              szov:string;
              tip:vtip;
              valaszok:array[1..maxvalasz] of valasz;
            end;
const valtip:array[egy..mind] of string=('e','t','m');
var f:file of kerdes;
    fnev:string[8];
    ksz,i,j,code:integer;
    k:kerdes;
    sv:string;
    t:vtip;

BEGIN
 clrscr;
 repeat
  writeln('Mi legyen a teszt cˇme?(max. 8 karakter)');
  readln(fnev);
 until length(fnev)<=8;
 {$I-}
 assign(f,fnev+'.tes');
 rewrite(f);
 repeat
  write('A k‚rd‚sek sz ma: ');
  readln(sv);
  val(sv,ksz,code);
 until code=0;
 writeln;
 for i:=1 to ksz do
  begin
    write('A(z) ',i,'. k‚rd‚s sz”vege: ');
    readln(k.szov);
    repeat
     write('A v laszok sz ma: ');
     readln(sv);
     val(sv,k.vdb,code);
    until code=0;
    repeat
     write('A k‚rd‚s tˇpusa (e(gy),t(”bb) v. m(ind))? ');
     readln(sv);
    until (sv='e') or (sv='t') or (sv='m');
    t:=egy;
    while valtip[t]<>sv do t:=succ(t);
    k.tip:=t;
    for j:=1 to k.vdb do
      begin
        writeln('A(z) ',j,'. v lasz sz”vege:');
        readln(k.valaszok[j].szoveg);
        repeat
         write('H ny pontot ‚r a v lasz? ');
         readln(sv);
         val(sv,k.valaszok[j].pontszam,code);
        until code=0;
      end;
    write(f,k);
    writeln;
  end;
 close(f);
 {$I+}

END.