Рандом

[ValeryPavlikov]

Как сделать, чтобы блоки программы (строки 6-14 и 16-24) выводились случайным образом?
Пожалуйста помогите! Очень нужно

uses crt;
var b : integer;
k:=0;
begin
 
writeln('Выберете верное ударение ');
writeln('1. агонИя');
writeln('2. агОния');
if b = 2 then begin
writeln('Верно');
end else
begin
writeln('Неверно');
end;
 
writeln('Выберете верное ударение ');
writeln('1. апострОф');
writeln('2. апОстроф');
if b = 1 then begin
writeln('Верно');
end else
begin
writeln('Неверно');
end;
 
end.

[Stilet]

uses crt;
const 
 a:array[1..2,1..2] of string=(
  ('агонИя','агОния'),('апострОф','апОстроф')
 );
 ok:array[1..2] of integer=(2,1);
var j,i,b : integer;
k:=0;
begin
 
writeln('Выберете верное ударение ');
for i:=1 to 2 do begin
 for j:=1 to 2 do writeln(j,'. ',a[i,j]);
 readln(b);
 if b = ok[i] then writeln('Верно') else writeln('Неверно');
 writeln;
end;

readln;
 
end.

Я угадал?