Нужно создать программу паскаль авс, где перед нами предстает выбор тестов. например: тест по русс.яз тест по тест по тест по тест по обществознанию можете просто пару вопросов к каждому тесту там написать в каждом. я сама все напишу. мне нужно узнать как сделать этот выбор между тестами. заранее всех .

Program test;
var q,a,wa,name:string;
test:integer;
begin
writeln('1)Rus.l. 2)Math 3)Hist');
readln(test);
if test=1 then 
begin
Сюда вопросы для первого
end else
if test=2 then 
begin
сюда вопросы для 2
end else
if test=3 then
begin
Сюда вопросы для 3
end;
end.