Тест, вывод рандомно вариантов ответа

var
  Form1: TForm1;
  mast: array[1..4] of string;
  karta: array[1..9] of string;
  a, b: Integer;
..........................................................
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  mast[1] := 'Ïèêè';
  mast[2] := 'Êðåñòè';
  mast[3] := '×åðâè';
  mast[4] := 'Áóáè';
 
  karta[1] := '6';
  karta[2] := '7';
  karta[3] := '8';
  karta[4] := '9';
  karta[5] := '10';
  karta[6] := 'Âàëåò';
  karta[7] := 'Äàìà';
  karta[8] := 'Êîðîëü';
  karta[9] := 'Òóç';
end;
................................................
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Randomize;
  a := 1 + Random(4);
  b := 1 + Random(9);
  Label1.Caption := karta[b] + ' ' + mast[a]; //покажем случайную карту
end;

function TGlavForm.Peremeshivanie(dlinna: integer): TBoundArray;
var masA,masB:array of integer;
    cnt,cnt2:integer;
begin
 SetLength(masA,dlinna);// создаем 3 массива по количеству вопросов (нумерация в них с нуля)
 SetLength(masB,dlinna);
 SetLength(Result,dlinna);
 for cnt := 0 to dlinna-1 do
   begin
     masA[cnt]:=cnt+1; // теперь пронумеровываем один из них числами по порядку
   end;
 randomize();// инициализация функции случ. чисел
 cnt:=0;
 for cnt := 0 to dlinna-1 do
   begin
     cnt2:=Random(dlinna); // получаем случайное число из диапазона "количество вопросов"
     While masA[cnt2]<0 do  cnt2:=Random(dlinna); // пока не найдем в массиве неотрицательное число будем его искать )
      masB[cnt]:=masA[cnt2];// когда найдем его переписываем его в ячейку массива B (а они идут по порядку в цикле)
      masA[cnt2]:=-1;// и заменяем число которое использовали на -1
   end;
  Finalize(MasA);
  for cnt2 := 0 to dlinna-1 do
    Result[cnt2] := masB[cnt2]; // так возвращаем результат
end;

SetLength(masiv,количество вопросов);
masiv:=peremeshivanie(количество вопросов);