работа с файлом в расширением .tst

[Filipys]

Здраствуйте! У меня такое дело, я составляю тест, который в формате TST и мне в нём надо сделать так, чтобы вопросы как-то автоматически выбирались, то есть шли не по порядку. С помощью какой это функции можно осуществить???
Вот например дана программа:

Title:
TestName: Базовые понятия по искусственному интеллекту;
Difficulty: F4;
Questions: 15;
FullTime: 0;
EndTitle.

# автор теста - Смолин Д.В.

StartTest:

Question: 1;
Weight: 0.099;
LocalTime: 15;
BeginText:
Продолжите утверждение. Информацию подразделяют на
EndText;

MultiChoice:
AtX: 8; AtY: 200;
Width: 750; Height: 80;
1: активную endcase;

2: пассивную endcase;
3: процедурную endcase;
4: декларативную endcase;
Right: 3,4;
Ask;

...

Question: 15;
Weight: 0.066;
LocalTime: 30;
BeginText:
Впишите слово. В программах овеществлена ?????????? информация
EndText;
Edit:
AtX: 8; AtY: 200;
Width: 750; Height: 120;
1: процедурная endcase;
2: ПРОЦЕДУРНАЯ endcase;
EndEdit;
Ask;

...

EndTest.

надо написать цункцию, которая бы переберала вопросы при выполнении теста)(например:2, 8,1,15 и так далее)
Всем заранее спс!!!

[Stilet]

А ты не хочешь тесты хранить в базе данных, выбрав какую-нить из популярных СУБД? Или обязательно свой формат нужен?

[Utkin]

Как вариант вгоняй все это дело в СтригЛист и работай с массивом строк.

[Deamonig]

Тебе можно загрузить все вопросы в массив типа string

b[1..{количество вопросов}] of string;

Вот пример случайного выбора чисел из определенного промежутка, без повторений

const s={количество вопросов в базе}
var 
i,k,r:integer;
a:array[1..s] of integer;
begin
...
Randomize;
for k:=1 to s do
begin
ran:
r := Random(s)+1;
for i:=1 to s do
if a[i] = r then goto ran;
for i:=1 to s do
if a[i] = 0 then
 begin
 a[i] := r;
 Break;
 end;
end;
...

Итак у нас есть 2 массива: 1-й это с числами 2-й с вопросами
допустим 1 массив такого вида 3 4 1 5 2, тогда 1-й вопрос будет b[3], 2-й вопрост b[4] и т.д.

При использовании этого кода случайного выбора чисел - будут загружаться в случайном порядке разные вопросы. Думаю идея ясна )