Помогите с тестом)) Delphi

[Арфа]

Есть текстовый файл откуда берутся вопросы с вариантами ответов.. надо сделать хаотичный вывод вопросов и к ним ответы. Подскажите а дальше сам попробую))

type
  j = record
  vop,otv1,otv2:string;
var
  
   f:text; 
   t,i,h:integer; 
   vop:array[1..100] of j; 


for i:=1 to t do // t- всего вопросов
            begin // читаем строчки
              readln(f,vop[i].vop); 
              readln(f,vop[i].otv1);
              readln(f,vop[i].otv2);          
             end;          
             h:=1; //первый выводим вопрос с вариантами ответов
              label1.Caption:=vop[h].vop;
              RadioButton1.caption:=vop[h].otv1;
              RadioButton2.caption:=vop[h].otv2;

Только есть еще кнопки вперед назад.. где переменная h меняется то увеличивается на 1 то уменьшается

[phomm]

Ну, тогда, имхо, надо каждый раз перевычислять случайный вопрос, т.к. нельзя один раз сгенерировать всю последовательность (из-за кнопок вперед и назад, хотя если очень захотеть, то можно и сделать, но код обработки маркировки вопросов будет в нескольких местах, что не есть гуд).
Сделать можно примерно так:

var
  ToShuffle: array of Integer;
  I, K : Integer;
begin
  K := 0;
  SetLength(ToShuffle, T);
  for I := 1 to T do
    if vop.[I].{ещё не отвечен} then
    begin
      ToShuffle[K] := I;
      Inc(K);
    end;
  H := ToShuffle[Random(K - 1)];
end;

[Арфа]

Сообщение от phomm

Сделать можно примерно так: ...

Спасибо попробую))