Написать программу проверки знания россии(3 вопроса)

Var  question :
 array [1..3] of string;
 awns,mark: integer; 
begin   
 writeln('Вопрос 1'+ #10 +'1 - вариант ответа'+ #10 +'2 - вариант ответа'+ #10 +'3 - вариант ответа');   
 readln(awns);   
 // проверяем ответ 
 if awns = 1 then mark := mark + 1;   
 writeln('Вопрос 2'+ #10 +'1 - вариант ответа'+ #10 +'2 - вариант ответа'+ #10 +'3 - вариант ответа');   
 readln(awns);   
 // проверяем ответ   
 if awns = 2 then mark := mark + 1;   
 writeln('Вопрос 3'+ #10 +'1 - вариант ответа'+ #10 +'2 - вариант ответа'+ #10 +'3 - вариант ответа');   
 readln(awns);   
 // проверяем ответ   
 if awns = 3 then mark := mark + 1; 
 // выводим результат   
 writeln(' Вы ответили на ' + mark + ' вопросов из 3'); 
end.