Берешь файл формата типа такого:
Код:
2
Вопрос 1?
3
Ответ 1
Ответ 2
Ответ 3
Вопрос 2?
2
Ответ 1
Ответ 2
где в начале идет кол-во вопросов, потом сами вопросы. После каждого вопроса - кол-во ответов.
Тогда можно просто открыть файл, считать кол-во вопросов, сделать массив записей вида
Код:
TQuestion = record
nAns, Chosen:byte;
Answers:array[0..10]of String;
end;
...
var Questions:array[0..50] of TQuestion
построково читать из файла все, и в каждый элемент массива писать нужное.
Потом в программе делаешь Label (StaticText, Memo или еще че-нить, что понравится) для вопроса и RadioGroup для ответов. Динамически переделываешь элементы для каждого вопроса. Выбранный ответ сохраняешь для каждого вопроса в Chosen. На выходе получишь массив, где будут номера выбранных ответов. И пишешь файл из этих чисел.
А процент - берешь все эти файлы, смотришь и выводишь результат.