Тест, нужно чтобы менялись ответы местами Опции

[Granit]

надо чтобы ответы менялись местами, всего три варианта ответа.. я делаю так:

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
первый ответ
второй ответ
третий ответ

и т.д.