Случайный выбор - Pascal ABC

Формулировка задачи:

Дорогие мои, подскажите, пожалуйста, как сделать случайный выбор вопросов. Никак не могу понять куда поставить randomize и каким образом его описать. Пробовала ставить, но выбирается только один вопрос и сразу же ставится оценка, что мне не подходит. Нужно, что бы случайным образом выбирались все вопросы.

program test;
uses crt;
var questions: array[1..20] of string;
var answers: array[1..20, 1..4] of string;
var correct_answers: array[1..20] of byte;
i,j,x,s,ocenka: byte;
begin
writeln('Основы программирования ');
questions[1]:='1) Операцией вывод на экран является:';
answers[1,1]:='readln'; answers[1,2]:='writeln'; answers[1,3]:='readkey'; answers[1,4]:='var';
correct_answers[1]:=2;
questions[2]:='2) Укажите полную форму составного условного оператора:';
answers[2,1]:='if...then...'; answers[2,2]:='case...of...else'; answers[2,3]:='if...then....else'; answers[2,4]:='case...of...';
correct_answers[2]:=3;
questions[3]:='3) С помощью какой команды можно ввести числа с клавиатуры?';
answers[3,1]:='readln(a)'; answers[3,2]:='writeln(a)'; answers[3,3]:='random(a)'; answers[3,4]:='write(a)';
correct_answers[3]:=1;
questions[4]:='4) Перевод программ с языка высокого уровня на язык более низкого уровня обеспечивает программа -';
answers[4,1]:='ассемблер'; answers[4,2]:='паскаль'; answers[4,3]:='компилятор'; answers[4,4]:='датчик';
correct_answers[4]:=3;
questions[5]:='5) Алгоритм, в котором действия выполняются друг за другом, не повторяясь называется:';
answers[5,1]:='линейным'; answers[5,2]:='циклическим'; answers[5,3]:='разветвленным'; answers[5,4]:='простым';
correct_answers[5]:=1;
questions[6]:='6) Символьный тип данных объявляется служебным словом:';
answers[6,1]:='STRING'; answers[6,2]:='BYTE'; answers[6,3]:='WORD'; answers[6,4]:='CHAR';
correct_answers[6]:=4;
questions[7]:='7) Оператор цикла с постусловием';
answers[7,1]:='While…do'; answers[7,2]:=' For … to…do'; answers[7,3]:='Repeat… until'; answers[7,4]:='For…downto…do';
correct_answers[7]:=3;
questions[8]:='8) Логический тип данных объявляется служебным словом:';
answers[8,1]:='BOOLEAN'; answers[8,2]:='LOGIC'; answers[8,3]:='BYTE'; answers[8,4]:='IF';
correct_answers[8]:=1;
questions[9]:='9) Раздел переменных определяется служебным словом:';
answers[9,1]:='LABEL'; answers[9,2]:='TYPE'; answers[9,3]:='VAR'; answers[9,4]:='ARRAY';
correct_answers[9]:=3;
questions[10]:='10) Для возведения в квадрат применяется функция:';
answers[10,1]:='LN(X)'; answers[10,2]:='LOG(X)'; answers[10,3]:='SQRT(X)'; answers[10,4]:='SQR(X)';
correct_answers[10]:=4;
questions[11]:='11) Раздел констант объявляется служебным словом:';
answers[11,1]:='CONST'; answers[11,2]:='KONST'; answers[11,3]:='CONCT'; answers[11,4]:='VAR';
correct_answers[11]:=1;
questions[12]:='12) Цикл с постусловием определяется служебным словом:';
answers[12,1]:='FOR'; answers[12,2]:='WHILE'; answers[12,3]:='CASE'; answers[12,4]:='REPEAT';
correct_answers[12]:=4;
questions[13]:='13) В Паскале различие в высоте букв (прописные или строчные)';
answers[13,1]:='имеет значение для написания служебных слов'; answers[13,2]:='имеет значение для написания имен переменных'; answers[13,3]:=' имеет значение при написании текстовых констант'; answers[13,4]:='игнорируется';
correct_answers[13]:=3;
questions[14]:='14) Какие виды подпрограмм есть в Паскале?';
answers[14,1]:=' модуль и функция'; answers[14,2]:='процедура и функция'; answers[14,3]:='модуль и процедура'; answers[14,4]:='процедура';
correct_answers[14]:=2;
questions[15]:='15) Раздел констант объявляется служебным словом:';
answers[15,1]:='BEGIN'; answers[15,2]:='PROCEDURE'; answers[15,3]:='FUNCTION'; answers[15,4]:='PROCEDURA';
correct_answers[15]:=2;
questions[16]:='16) Каким символом разделяются перечень однотипных формальных параметров в процедуре?';
answers[16,1]:='запятой'; answers[16,2]:='точкой с запятой'; answers[16,3]:='двоеточием'; answers[16,4]:='точкой';
correct_answers[15]:=1;
questions[17]:='17) Каким символом разделяются перечень разнотипных формальных параметров в процедуре?';
answers[17,1]:='запятой'; answers[17,2]:='точкой с запятой'; answers[17,3]:='двоеточием'; answers[17,4]:='точкой';
correct_answers[17]:=2;
questions[18]:='18) Каким символом разделяются перечень разнотипных формальных параметров в процедуре?';
answers[18,1]:='var y = array [1..10] of integer'; answers[18,2]:='var y : array (1..10) of integer'; answers[18,3]:='var y : array [1..10] of integer'; answers[18,4]:='type y = array (1..10) of integer';
correct_answers[18]:=3;
questions[19]:='19) Язык программирования Pascal создал';
answers[19,1]:='Б. Паскаль'; answers[19,2]:='М. Фортран'; answers[19,3]:='Н. Вирт'; answers[19,4]:='Правильных ответов нет';
correct_answers[19]:=3;
questions[20]:='20) Процедура INC(x,k)';
answers[20,1]:='преобразует десятичное число х в строку из k символов'; answers[20,2]:='увеличивает значение переменной х на величину k'; answers[20,3]:='уменьшает значение переменной х на величину k'; answers[20,4]:='преобразует строку символов x в число, содержащее k десятичных знаков';
correct_answers[20]:=2;
s:=0;
for i:=1 to 20 do
begin
writeln(questions[i]);
for j:=1 to 4 do write(j,'. ',answers[i,j],'. ');
writeln;
readln(x); 
if x=correct_answers[i] then inc(s);
end;
writeln('Процент ваших правильных ответов - ', round(s/20*100));
begin
if round(s/20*100)>=60 then ocenka :=4;
if round(s/20*100)>=80 then ocenka :=5;
if round(s/20*100)<=40 then ocenka :=2;
if round(s/20*100)>40 then ocenka :=3;
writeln('Ваша оценка - ', ocenka);
end;
end.

Решение задачи: «Случайный выбор»

Листинг программы

var correct_answers: array[1..20] of byte;
    i,j,x,s,ocenka,a: byte;/добавит a
    m:set of byte;//добавить
........................................
//после заполнения массивов
randomize;
m:=[];
s:=0;
for i:=1 to 20 do
 begin
  repeat
   a:=1+random(20);
  until not(a in m);
  m:=m+[a];
  writeln(questions[a]);
  for j:=1 to 4 do write(j,'. ',answers[a,j],'. ');
  writeln;
  readln(x);
  if x=correct_answers[a] then inc(s);
 end;

Объяснение кода листинга программы

В коде представлена задача случайного выбора.
В первой части кода объявлены переменные:
- correct_answers - массив из 20 элементов типа byte, который будет содержать правильные ответы;
- i, j, x, s, ocenka, a - вспомогательные переменные типа byte.
Во второй части кода происходит заполнение массивов:
- correct_answers - заполняется значениями правильных ответов;
- questions - массив строк, содержащих вопросы;
- answers - массив 2D, содержащий варианты ответов.
Далее, с помощью функции randomize, инициализируется генератор случайных чисел.
Затем, создается пустое множество m, которое будет использоваться для отслеживания выбранных чисел.
Внешний цикл for i:=1 to 20 выполняет пошаговое тестирование каждого элемента массива correct_answers.
Внутренний цикл repeat-until используется для случайного выбора числа, которое еще не было добавлено в множество m.
После выбора числа a, оно добавляется в множество m, а затем выводится вопрос, соответствующий числу a.
Затем, с помощью внутреннего цикла for j:=1 to 4, выводятся варианты ответов на вопрос.
После чтения ответа пользователя с помощью функции readln(x), проверяется его соответствие правильному ответу correct_answers[a].
Если ответы совпадают, переменная s увеличивается на единицу.
В конце программы значение переменной s будет содержать количество правильных ответов.