Var ball:integer;
z,ocenka,oc:string;
dan_otv:string;
vopros:string;
mas_vopr:array[1..5]of string;
Begin{Procedure}
Repeat
ClearDevice;
n_menu:=4;
Ramka;
Find;
Chtenie;
Kursor;
x:=p_kur;
If n_menu=5
Then
Begin{Then}
Randomize;
variant:=Random(9);
ball:=0;
Find;
Reset(f);
kol_kur:=4;
While not EOF(f) do
Begin{While}
ClearDevice;
Ramka;
y:=70;
Readln(f,vopros);
While vopros<>'q' do
Begin{While}
SetColor(White);
OutTextXY(40,y,vopros);
{Writeln(f1,vopros);}
Readln(f,vopros);
y:=y+20;
End;{While}
Readln(f,mas_vopr[1]);
Readln(f,mas_vopr[2]);
Readln(f,mas_vopr[3]);
Readln(f,mas_vopr[4]);
Writeln(f1,mas_vopr[2]);
Writeln(f1,mas_vopr[3]);
Writeln(f1,mas_vopr[4]);}
Readln(f,mas_vopr[5]);
Writeln(f1,mas_vopr[5]);}
SetColor(White);
OutTextXY(40,260,mas_vopr[1]);
OutTextXY(40,280,mas_vopr[2]);
OutTextXY(40,300,mas_vopr[3]);
OutTextXY(40,320,mas_vopr[4]);
kol_kur:=4;
Kursor;
str(p_kur,dan_otv);
Writeln(f1,dan_otv);}
If mas_vopr[5]=dan_otv
Then
Begin{Then}
ball:=ball+1;
OutTextXY(120,220,'Правильный ответ');
End{Then}
Else
OutTextXY(120,200,'Неправильный ответ ');
Delay(6000);
End;{While}
Close(f);
ClearDevice;
SetColor(Green);
Rectangle(5,5,635,475);
Rectangle(40,35,600,50);
Rectangle(40,150,600,180);
SetColor(Red);
SetColor(White);
Case ball of
0,1,2: Begin ocenka:='Неудовлетворительно'; oc:='2'; End;
3: Begin ocenka:='Удовлетворительно'; oc:='3'; End;
4: Begin ocenka:='Хорошо'; oc:='4'; End;
5: Begin ocenka:='Отлично'; oc:='5'; End;
End;{Case}
Str(ball,z);
OutTextXY(210,130,name);
OutTextXY(80,150,'Оценка ваших знаний:');
OutTextXY(300,150,ocenka);
OutTextXY(80,170,'Количество правильных ответов:');
OutTextXY(300,170,z);
Append(f_rez_gr);
Readkey;
key:='q'
End{Then}
Else
key:=#13;
n_menu:=1;
proc:='s';
Until key<>'q';
End;{Procedure}