{zapisat tekstovyj fail test.txt v tipizirovannij}
uses crt;
type
    fr=record
       vop:string;
       v1:string;
       v2:string;
       v3:string;
       v4:string;
       pr:string[1];
    end;

procedure chtenie_zapys(var a:fr;var opr:file of fr; var kol:byte);{chtenie inf iz faila test.txt i zapis ee v fail result.for}
var
 f:text;
 tmp:string;
begin
     assign(f,'test.txt');
     reset(f);
     assign(opr,'result.for');
     rewrite(opr);
     while not eof(f) do
       begin
         readln(f,a.vop);
         readln(f,a.v1);
         readln(f,a.v2);
         readln(f,a.v3);
         readln(f,a.v4);
         readln(f,a.pr);
         readln(f,tmp);
         inc(kol);
         write(opr,a);
         seek(opr,kol+1)
       end;
     close(opr);
     close(f);
end;


procedure test(a:fr; orp:file of fr;kol:byte);{testirovanie}
var
   ko,kp,i:byte;
   pp,po,oc:real;
   otv:string;
begin

     for i:=1 to kol do
       begin
         writeln(a.vop);
         writeln(a.v1);
         writeln(a.v2);
         writeln(a.v3);
         writeln(a.v4);
         writeln('Pravylna vidpovid: ');
         readln(otv);
         if otv=a.pr then inc(kp) else inc(ko);
         clrscr;
       end;
     pp:=(kp/kol)*100;
     po:=100-pp;
     oc:=(5/100)*pp;
     writeln;
     writeln('Kolichestvo voprosov=',kol);
     writeln('Pravilnyh otvetov:',kp,' (',pp:2:0,')');
     writeln('oshibok:',ko,' (',po:2:0,')');
     writeln('Vasha ocenka:',oc:4:2);
end;

var
   opr:file of fr;
   a:fr;
   kol:byte;
begin
     clrscr;
     writeln('nachat testirovanie?');
     readln;
     chtenie_zapys(a,opr,kol);
     test(a,opr,kol);
end.