RANDOMIZE;
readln(f,st);
j:=random(2)+1;
for i:=1 to 3 do
readln(f,b[i]);
tmp:=b[1];b[1]:=b[j];b[j]:=tmp;
writeln(st);
for i:=1 to 3 do
writeln(' ',i,'. ',b[i]);
write('Введите номер ответа: ');
readln(answer);
if answer=j then inc(s);
проблема в том что меняются местами только 1 и 2 ответы, 3 всегда остается неизменным... в файле вопросы и ответы, расположены так (первый ответ всегда правильный):
ВОПРОС№1
первый ответ
второй ответ
третий ответ
ВОПРОС№2
первый ответ
второй ответ
третий ответ
и т.д.
