program ramzik;
uses crt;
Var n:byte;
type
tip = record
vopr:string;
variant1:string;
variant2:string;
pr_otv:byte;
end;
Procedure Windows (x1,y1,x2,y2,ct,cbt:integer);
Begin
window (x1,y1,x2,y2);
Textcolor (ct);
Textbackground (cbt);
Clrscr;
End;
procedure zapolnenie;
var i:byte;
F:file of tip;
N:tip;
begin
assign(F,’rofl’);
rewrite(F);
for i:=1 to 5 do
begin
writeln (’Введите вопрос’ );
readln (N.vopr);
writeln (’Введите перый вариант ответа ’);
readln (N.variant1);
writeln (’Введите второй вариант ответа ’);
readln (N.variant2);
writeln (’Введите номер правильного ответа на вопрос’);
readln (N.pr_otv);
write (F,N);
end;
writeln (’Ввод информации завершен’);
close(F);
End;
procedure opros;
var i:byte;
k:byte;
F : file of tip;
N : tip;
o:byte;
begin
assign(F,’rofl’);
reset(F);
for i:=1 to 5 do
begin
read (F,N);
writeln (’отвечайте на этот вопрос >=’, N.vopr);
writeln (’Варианты ответов’);
writeln ( N.variant1);
writeln ( N.variant2);
writeln (’Введите номер правильн. ответа на вопрос’);
readln (o);
if o= N.pr_otv then k:=k+1;
end;
writeln (’Вы ответили правильно на ’,k,’вопросов’);
close(F);
end;
Begin
repeat
writeln(’Хотите переписать вопросы и ответы?Если да то нажмите 1______-Хотите пройти тест?Если да,то нажмите 2,но если у вас не заполнены вопросы и ответы то заполните их(удачи xD)’);
readln(n);
if n=1 then zapolnenie;
if n=2 then opros;
if n=3 then exit;
until n=0;

End.

я написал контрольку