Помогите с программой

Я бы использовал файл, в котором хранил бы вопросы и ответы. В цикле считывал бы вопросы, узнавал ответы, сравнивал, и мотал бы счетчик правильных ответов.

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

Но хотя это только предложение, дело твое...
Если пригодится можешь книжку качнуть (1 839 936 (байт))
запустишь файл index.html

На.
uses crt;
label bye;
var
fname:string[40];
f: text;

VsegoVopr: integer;
PravOtv: integer;

nOtv: integer;
prav: integer;
Otv: integer;

st:string;
p:integer;

i:integer;
begin
if ParamCount = 0 then
begin
writeln('NE ZADAN FILE VOPROSOV TESTA');
writeln('Komandaya stroka: test imya');
end;
fname := ParamStr(1);
Assign (f,fname);
{$I-}
Reset(f);
{$I+}
if IOResult <> 0 then
begin
writeln('Ne naiden file testa',fname);
end;
writeln('seichas budet test. udachi');
TextBackGround(Blue);
ClrScr;
VsegoVopr := 0;
Prav := 0;
while not EOF(f) do
begin
VsegoVopr := VsegoVopr + 1;
readln(f,st);
TextColor(White);
writeln(st);
readln(f,nOtv,Prav);
TextColor(LightGray);
for i:=1 to nOtv do
begin
readln(f,st);
writeln(i,'. ',st);
end;
writeln;
write('Vash vibor ->');
readln(Otv);
if Otv = Prav then PravOtv := PravOtv + 1;
writeln;
end;
p:=Round((PravOtv/VsegoVopr)*100);
write('Vasha ocenka');
case p of
100:writeln('otlichno');
80..90:writeln('horosho');
60..79:writeln('udovletvoritelno');
else writeln('ploho');
end;
bye:
writeln ('Dlya zavershenia nazhmite <Enter>');
readln;
end.

Пример файла теста.

Архитектор Исаакиевского собора
3 2
Доменико Трезини
Огюст Монферан
Карл Росси
Архитектор Зимнего Дворца
2 2
Франческого Бартоломео
Огюст Монферан

Запускать надо так :exe'шник имя файла теста
Это можно через Пуск->Выполнить

Спасибо всем. Программа работает довольно хорошо.